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*p itisaeciRB f<= 

o<8 MID0ffl-3<«B 
*S S-II-XBB 6F 

"i« ■maniMKisBiui i f 
jta xwi/vxn. 

ISP •<(•- a-JlK-ISPIS 

TB 5^j?J»»ai°ERIE 3F1 

>»»» HB«BECCS IF 
;T£««l« 4F 
•>l — kVj{X?M?VsS-\ 
•»►■- ioXsynBI 5F 
■>s-tty*a 5F 

CVA4HBB 8F 

3A»a 

KB SJt-vSXIiBS 

.189 e-J5»«5aa«naa» jf 

K':-0:llxWBa*Ce4F 
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io?3S)4?-!888 

as ny is 

(085)833-5791 
(08S133-4S7B 

»aiaa oaaw-aBa 
iceB6i6?-mo? 

108'3>86-5881 

[0876)45 ra 

3870)81-3181 

loesaai-oKe 

H236!S5-37'5 
.!•- 6-4 « 
(0498)44-5461 
(0487)73-3711 
(0473)68-513 
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naaasmaiwiu 6fi 

A5-5*ajR »F 

jePniJB(*C5 7F) 

•fl— 3-»S- 3F 

mtn-yxmrnn bif 
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UTtorvx-t* asa 

B*VIVFIE8I 7F 

j-fi-paa 3F 
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«l 
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(03) 858-3711 

(03) esi-isa 
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(o<a)js-4 a 

(0485)46-1411 
IWTOEa EBB 

(007)83-1313 
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3463)88-4 II 

i0468 es-aa 
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CUTEfc&©?SIK r Lemonj ©£ffl3> EB&P\J>9Z 

DATE I THU.FRY.SAT.SUN TIME I Parti 21:00->22:00 |Part2 22:00->23:0[ 

GAME STUDIO 

©^7 Ui-ff-f ^ftX^yTTfc'o 
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PC8801SRl*l/SFM^igffl35ffli:^O>K'-t-;- KU ffl35ffl 
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3.5 2DD 3ft*§ 

PC8801SR^>';-X5 2D 
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Si¥8,800 

5*£*1 «****¥ 8, 800 



S;F»£C;ft'Jt*S£(31|-.Z*2-e-A. ES3is a registered trademark of ASCII Corp. 
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»W*JBc|3// 



CS32 C232+ **li« ¥9,800 
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A/7*«ur, g»©g*cixoAnrL\<(i:n 



1H CLEAR 2BB8:DEFINT A-Z:CALL MUSIC (1,0. 

1, 1. 1,1.1. 1) 

28 CALL BGM(1):CALL FITCH (443) 

38 SOUND b. 2: SOUND 7.&B1B1B1B 

58 CALL VOICE (§6. §5. §33. §14. §53. §53) 

68 ' 

78 A$="T18B V14 05 L8 «8 

8» B$="T18B V13 Ob L8 0.8 

98 C$="T180 V13 03 L8 0.6 

IBB D$="T188 V13 05 L8 Q6 

110 E$="T18B VI 1 04 L8 0.8 

128 F$ = "T18B Vll 04 L8 «8 

138 G$="T18B V13 

140 HS-" 1188 V13 04 L8 

158 l$="T18B V15S0M2008O3L8 

lb0 J$="T188 V13 04 Lb4 

170 ' 

188 Al$--"05F16R16FlbRlbDF A2 A4>CC DC<A4 

198 Bl$="ObFlbRlbFlbKlbDK A2 A4>CC DC<A4 

288 Cl$-"KFlbRlbF8>C <H8ADA DA>C4 DC<;AD 

218 D1$-"05KDCD KA>C<A KDCD FAXXA 

228 El$="05D2ftV13D4V14&D4&V13D2V12&D2 

230 Kl$="05A2*V13A4V14*A-lftV13A2V12»A2 

240 G1$="V13BH8H8HSM8H8 BH8H8HSM8BH8 BH8 

H8HSM8H8 BH8H8HSM8HB8 

250 Hl$ = "V1204FlbKlbFlbRlbDFA2A4>i-CUC<A4 

2b0 I 1$="M4B8DDM1880UM400U M400DUM1800DM 

400D M400DDM1800DM400D M400DDM1800DM400D 

270 Jl$ = "V1403R4DC+C<.B>RlbK8 K40C+C<B>K1 

bK8 K4DC+C<B>RlbR8 R4DL"+C<B>HlbH8 

280 ' 

290 A2$'"AGF4 G4E4 EDC4 A2 

300 B2$="AGF4 G4E4 EDC4 A2 

318 C2$="A4DF GCEC E4. E8 D8A8D8A8 

328 D2$="AFD>F GC<EOECEC<ADAD 

338 E2$="V12D2 V13C4V144C4 V134C2V12D2 

348 F2$="V12A2 V13G4V144G4 V134G2V12A2 

358 H2$="AGK4 G4E4 EDC4 A2 

36B ' 

378 A8$=" UGFI2 G4E4 E4DC D2 

380 B8$=" (AGGI2 G4E4 E4DC D2 

390 HB$="A6U6F6 G4E4 E4DC D2 

400 GB$="BH8H8HMS8H8 BH8H8HSM8BH8 SM8SM8 



SM4 SM4SM4 

410 I0$="M400DDM1800DM40BD M4BBDDM18B8DM 

488D M18BBDDDH8DK8DR8 

428 J8$="V1403R4DC+C<B>R16R8 R4DC+C<B>R1 

bK8 FEDtDH16FED+DR16FED+DR16R8 DC+C<B>K1 

6R8DC+C<B>R16R8 

438 ' 

448 A3$="V1405§53G2 F4E4 F24F2 

458 B3$="V1385305 Rl FF>C4<A4F4 

468 C3$="CGCG F4EE FFFF F4F4 

478 D3$="V13§5306 Rl FF>C4<A4K4 

488 E3$="V14§1405 CI 04F4>C4<A4F4 

498 F3$»"V1481405 Gl F4>C4<A4F4 

588 G3$="BHC8H8HSMC8H8 BHC8H8HSHC8HB8 BH 

C8H8HSMC8H8 BHC8H8HSMC8HB8 

518 H3$="G2 F4E44F24F2 

528 ' 

538 A4$="G2 F4E44F1 

540 B4$="G2 F4E44F1 

550 C4S="CGCG F4EE FFFF F>C<F>C< 

568 D4$='"H1 A4F>C C2 

578 E4$=-"05C1 04A4F>C C2 

588 F4$="G1 A4F>C C2 

598 H4$="G2 F4E44F24F2 

688 ' 

610 GZ$="BH8H8SHC8H8 BH8H8SHC8HB8 BH8SHC 

8BH8SHC8 SHC8SHC8BH8SHC8 

620 IZ$="M4BBDDM1888DM4B8D M4B8DDM1888DM 

488D M48BDM188BDM408DM1888D M18BBDDH48BD 

M18B8D 

638 JZ$="V1403R4DC+C<B>R16R8 R4DC+C<B>R1 

bR8 R8DC+C<B>R16R8DC+C<B>R16 DC+C<B>R16D 

C+C<B>R16R8DC+C<B>R16 

648 ' 

658 A5$="§6V1306D2 A2 AA+>C4 D4C<At 

668 B5$="V1205D2 A2 AAt>C4 D4C<A+ 

b78 C5$="03 DA8R8A DAR8A AAt>CC DDC<A+ 

b88 D5$="V 906 D2V1 14D2V124D24V11D2 

69B E5$-"V1405 R4A4 R4A4 A2 A2 

788 F5$-"V1405 R4D4 R4D4 D2 D2 

718 H5$""05 V12 D2 A2 AAOC4 D4C<A+ 

720 " 

738 A6S-"A4F4 AtA+A4 GFEF G4A4 

748 B6$="A4F4 AtA+A4 GFEF G4A4 

758 C6$="DAR8F DAR8F GFEF GGAA 

768 D6$="V1806 D2V114D2V124C2SV11C2 

778 E6$="R4F4 R4A4 R4E4 R4A4 

788 F6$="R4D4 R4D4 R4C4 R4D4 

798 H6$="A4F4 AtA+A4 GFEF G4A4 

800 ' 

820 A7$="F4R8F EDED DFAA+ AtAFD 

838 B7$ = "F4R8F EDED DFAA+ A+AFD 

848 C7$="FFR8F EDR8D DFAA+ AtAFD 

858 D7$="V1806 F2V1UE2V124D24V11D2 

868 E7$="R4F4 R4E4 D2D2 

878 F7$-"R4D4 R4C4 F2A2 

888 H7$="F4R8F EDED DFAA+ AtAFD 

898 ' 

980 A8$="C2E2 Dl §6 V14 

910 B8S="C2E2 Dl §5 V13 

928 C8$="C4R8C E4R8E D4R8D ADR8D 

938 D8$ = " V 1 0O6C2V 1 1 &E2V 1 2&D2& V 1 1 D2§ 1 4 VI 3 

940 E8$-"R4C4R4C4D4V13D4V12D4V11D4§53V12 

950 F8$=" R4E4R4E4A4V 1 3A4V 1 2A4V 1 1 A4S53V 1 A 

960 G8$="BH8H8SMH8H8 BH8H8SMH8HB8 BH8SMH 

8BH8SMH8 SM8SM8SM8SM8 

970 H8S--"C2E2 Dl 

980 l8$ i "M4B8DDM18B8DM480D M400DDM1800DM 

400D M400DM1800DM408DM18BBD D8D8D8D8 

990 J8S-"V1403R4DCtC<B>R16R8 R4DCKXB>R1 

bRH DOC<B>RlbR8DC+C<;B>RlbR8 V13DC+C<B>H 

16V10DCtC<B>R16 

1000 ' 

1010 PLAY 82. A$.B$,C$.D$.E$.F$.G$.H$. 1$. 

J$ 

1020 PLAY 82. A1$.B1$.C1$.D1$.E1$.F1$,G1$ 

.HIS. 11$. J1S 

1030 PLAY #2. A2S.B2$.C2$.D2$.E2S.F2$.G1S 

,H2$, 11$. J1S 

1040 PLAY #2. A1S.B1$.C1$.D1$.E1$.F1$.G1S 

•HIS, 11$. J1S 

1050 PLAY #2.A0$.B0$.CJ$.UjS.h2$. F2$.G0$ 

. H2S, 10$. .10$ 

10b« PLAY #2. A3$.b3*.'-3S.L>3S.E3S. I-3S.UJ1. 

,H3$. 11$. Jl$ 

1070 PLAY #2. A4S. B4$.C'4$. D4S. E4$, F4S.G3S 

,H4S. 11$. J 1$ 

1080 PLAY #2, A3$.B3$.C3$.D3$.E3$,F3$.G3$ 

,H3$. 11$. J IS 

1090 PLAY #2.A4$.B4$.C4$.D4$.E4$.F4$.GZ$ 

.H4S. IZS. .IZS 

1100 PLAY #2. A5$.B5$.C5$.D5$.E5$.F5$.G1$ 

,H5$. 11$. Jl$ 

1110 PLAY #2, A6$. Bb$.C6$.D6$.Eb$.F6S.Gl$ 

. Hb$. 11$. Jl$ 

1120 PLAY »2, A7$.B7$.C7$.U7$,E7$.F7$.G1S 

.H7S. 11$. J 1$ 

1130 PLAY 92. A8$.B8$,C8S.D8$.E8$.F8S.G8$ 

. H8S. 18$. J8$ 

1148 GOTO 1818 



* 




ttg<t^<if^SA:*<J:^5B:»L^^:55o 3"<g 

1&l,lW%ftr>Zlf£z>£l3.o 3"(^>l<t(DJ 7 y 
A(DX-y-y#T—'?£l\5Z£1£fr£>s frte 

\zm(Dl$mft1l8ftiZflZl\&<Dtz «0*©S5A 
BftO<t7r-VK^^X«RPG/f-eo 



18 CALLMUSICd.B. 1. 1. 1. 1. 1. 1J 

28 D I MAS ( 1 1 ) . B$ ( 1 1 ) . C$ ( 1 1 ) . D$ ( 1 1 ) . E$ ( 1 1 ) 

, F$ ( 1 1 ) , G$ ( 1 1 ) 

38 FOR I =81011 : READA$ ( 1 > , B$ ( I ) , C$ ( I ) , D$ ( I 

) . b$ ( I ) . F$ ( I ) . G$ ( I ) : NEXT 

48 PLAYK2. A$ (8) . B$ (8) . C$ (8) . D$ (8) . E$ (8) . 

F$(B).G$(0) 

58 FORI =11011 :PLAY#2. AS (1) , B$ ( I ) . C$ ( I ) , D 

$ ( 1 ) , E$ ( I ) . F$ ( I ) , G$ ( I ) : NEXT : G0T058 

6B REM DATAS 

78 DATA "T12B§20b". "T1288103" . "T12B§b05" 

, "T12B§406" , "T128§404" . "T1288104" . "T12BV 

8§A15" 

8B DATA " A2" . " D4. D8" ."",""." L8ADFA" . " R4D 

4"."H8H8BSH!8H8" 

90 DATA "B-2"."G4.G8". "". "" . "GDGB-" . " R4G 

4" , "H8H8BSHI8H8" 

100 DATA "G4. F16G16" ."C4.C8" ,""."". "GCEG 

" . " H4C4" . " H8H8BSH ! 8H8" 

110 DATA "A2"."K4.K8"."A4.Gt8"."F4.E8"." 

ADFA" , " R4A4" . " H8H8BSH !8H8" 

120 DATA "L8DFA>D" . "A4.A8" ,""."", "ADFA". 

" R4A4" . " H8H8BSH ! 8H8" 

130 DATA "E2". "E4.E8". "'•."". "EC + EA"."R4A 

4"."H8H8BSHI8H8" 

140 DATA "C+4. <B16>C+ 16"." A4.A8", "","", " 

EC+ EA" . " R4D4" . " H8H8BSH 1 8H8" 

' D4. D8" , " L8DFA<A>" , " L8DFA< 
" R4D4" . " H8H8BSH ! 8H8" 
D4. D8" , " DGB-<A>" . " DEG<A>" 

' H8H8BSH I 8H8" 
D4. D8" . "DFA<A>" . "DFA<A>" . 
H8H8BSHI8H8" 
V14§606DEFG" . "D4. D8" . "DGB-<A>" 
" DGB-D" . " R4D4" . " H8H8BSH !8H8" 



158 DATA "D2" 
A>", "L8DFA<A> 
168 DATA "D2" 
, "DGB-D" 
178 DATA 
"DFA<A>" 
188 DATA 
. " DEG<A> 



R4D4" 
D2" 

R4D4" 
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1000 DEFINT A-Z 

1010 DIM III (3, 3, 3, 3) , X (40) , Y (40) . Z (40) . S (40) , S$ (2) , R$ 

(2),SG$(2),US(2) 

1020 FOR 1=1 TO 40:READ X(I):NEXT I 

1030 FOR 1=1 TO 40:READ Y(I):NEXT I 

1040 FOR 1=1 TO 40:READ Z(I):NBXT I 

1050 FOR 1=1 TO 40:READ S(I):NEXT I 

1060 S$(0)=T :S$(1)="*" :S$(2)="5" :R$(0) ="Msx" :R$ (1) 

= "Man":SG$(0)="^T":SG$(l)-"r'T" 

1070 SCREEN 1: COLOR 15, 1.1: WIDTH 32: KEY OFF 

1080 GOSUB 2140:GOSUB 2210 

1090 XY=1: GOSUB 1100:GOTO 1310 

1100 LOCATE 23. 3: PRINT"**** %*V 

1110 LOCATE 23.4:PRINT" 

1120 FOR S=0 TO 3 :FOR Z=0 TO 3 

1130 FOR Y=0 TO 3: FOR X=0 TO 3 

1140 ON XY GOSUB 1200,1210 

1150 LOCATE XX.YY,0:PRINT S$ (M (X, Y, Z, S) ) ; 

1160 NEXT X.Y.Z. S 

1170 ON XY GOSUB 1220,1260 

1180 LOCATE 23, 3: PR I NT SG$(G) ;" t) 

1190 LOCATE 23,4:PRINT"tt' IX t" :RETURN 

1200 XX=2+Z*5+X : YY=3+'S*5+Y : RETURN 

1210 XX=2+X*5+Z : YY=3+Y*5+S : RETURN 

1220 LOCATE 24, 7: PR I NT "i Z" 

1230 LOCATE 24, 8: PR I NT " I rX " 
1240 LOCATE 24, 9:PRINT " IY " 
1250 LOCATE 24, 10: PRINT "S ": RETURN 

1260 LOCATE 24, 7: PR I NT "i X" 

1270 LOCATE 24, 8: PR I NT " I rZ " 

1280 LOCATE 24, 9:PRINT "IS " 

1290 LOCATE 24. 10: PR INT "Y ": RETURN 

1300 ' MV 

1310 LOCATE 8,0:PRINT"4l' tTA 4t< W 

1320 LOCATE 23, 13: PRINT" *U (" ;R$ (UC (0) ) ;")"; 

1330 LOCATE 23. 15:PRINT"X Y Z S "; 

1340 LOCATE 23, 16:PRINT"0 0"; 

1350 LOCATE 23. 18:PRINT" £' t (" ;R$ (UC (1) ) ; " ) " ; 

1360 LOCATE 23. 20:PRINT"X Y Z S " ; 

1370 LOCATE 23, 21 :PRINT"0 0"; 

1380 G=0:FOR TJ=0 TO 255: BEEP 

1390 LOCATE 23. 3: PRINT SG$(G);" 9) 

1400 LOCATE 23, 4: PR I NT "tt' IX t" 

1410 IF UC(G) THEN GOSUB 1550 ELSE GOSUB 1750 

1420 LOCATE 23, 3: PR I NT "&UU *>*Y 

1430 LOCATE 23, 4: PRINT " 

1440 BB=1:GS=G: GOSUB 1840 ' fi&fi 

1450 IF HT=1 THEN 1530 

1460 G=G XOR 1:NEXT TJ 

1470 LOCATE 23, 3:PRINT"t>*j>»t T' t" 

1480 LOCATE 23, 4: PR I NT" Rep lay ?" 

1490 LOCATE 23, 5 :PRINT" (Y or N)" 

1500 A$=INKEY$:IF A$<>"" THEN 1500 

1510 A$=INKEY$:IF A$="N" THEN END 

1520 IF A$="Y" THEN RUN ELSE 1510 

1530 LOCATE 23,3:PRINT SG$(G);" 9) jp%" :GOTO 1480 

1540 ' ~w V 

1550 X1=2:Y1=3:X=0:Y=0:Z=0:S=0 

1560 LOCATE 23, 15+G*5+1 :PRINT CHR$(48+X);" ";CHR$(48 

+Y) ; " " ; CHR$ (48+Z) ; " " ; CHR$ (48+S) 

1570 LOCATE 2.3,1 

1580 IF INKEY$=CHR$(13) THEN XY=((XY-1) XOR l)+l:GOS 

UB 1100: GOTO 1550 

1590 ST=STICK(0) :IF ST=0 THEN 1700 

1600 IF INKEY$<>"" THEN 1600 

1610 X1=X1+(ST=7)-(ST=3) :Y1=Y1+ (ST=1) - (ST=5) 

1620 X1=X1+(X1«21)-(X1=1) :Y1=Y1+(Y1=22)-(Y1=2) 

1630 IF (Xl-1) MQD 5 =0 THEN X1=X1+ (ST=7) - (ST=3) 

1640 IF (Yl-2) MOD 5 =0 THEN Y1=Y1+ (ST=1) - (ST=5) 

1650 X=(Xl-2) MOD 5:Y-(Yl-3) MOD 5 

1660 Z=(Xl-2) ¥ 5:S=(Yl-3) ¥ 5 

1670 IF XY=2 THEN SWAP X,Z:SWAP Y. S 

1680 LOCATE 23, 15+G*5+1, 0:PRINT CHR$(48+X);" ";CHR$( 

48+Y);" " ;CHR$(48+Z) ;" " ;CHR$ (48+S) ; 

1690 LOCATE X1.Y1.1 

1700 IF STRIG(0)=0 THEN 1580 



1710 IF M(X.Y.Z.S) THEN BEEP: GOTO 1580 

1720 LOCATE XI, Yl, 0: PR I NT S$ (G+l) ;CHR$ (29) ; 

1730 M(X,Y,Z,S)=G+1: RETURN 

1740 ' v**l k-fV 

1750 BB=2:GS=G : GOSUB 1840 

1760 IF HT=2 THEN XS=XR: YS=YR :ZS=ZR: SS=SR 

1770 M(XS,YS.ZS,SS)=G+1 

1780 X=XS:Y=YS:Z=ZS:S=SS 

1790 LOCATE 23. 15+G*5+1. 0:PRINT CHR$(48+X);" ";CHR$( 

48+Y);" " ;CHR$(48+Z) ;" " ;CHR$ (48+S) ; 

1800 IF XY=2 THEN SWAP XS.ZS:SWAP YS. SS 

1810 X1=2+XS+ZS*5:Y1=3+YS+SS*5 

1820 LOCATE XI, Yl: PR I NT S$(G+1); 

1830 RETURN 

1840 ' Wfi k-+V 

1850 HT=0:FOR 1=1 TO 40 

1860 X0=X:Y0=Y:Z0=Z:S0=S 

1870 IF X0<0 OR Y0<0 OR Z0<0 OR S0<0 THEN 1910 

1880 IF.X0>3 OR Y0>3 OR Z0>3 OR S0>3 THEN 1910 

1890 X0=X0-X(I) :Y0=Y0-Y(I) :Z0=Z0-Z(U :S0=S0-S(I) 

1900 GOTO 1870 

1910 KM=0:KT=0fKS=0 

1920 X0=X0+X(I) :Y0=-Y0+Y(I) :Z0=Z0+Z(I) :S0=S0+S(I) 

1930 IF X0<0 OR Y0<0 OR Z0<0 OR S0<0 THEN 2050 

1940 IF X0>3 OR Y0>3 OR Z0>3 OR S0>3 THEN 2050 

1950 IF M(X0.Y0.Z0. S0)=GS+1 THEN KM=KM+l:GOTO 1990 

1960 IF BB-1 THEN 2050 

1970 IF M(X0,Y0,Z0.S0)=(GS XOR 1)+1 THEN KT=KT+1 

1980 IF M(X0,Y0.Z0. S0)=0 THEN KS=KS+1 :XS=X0:YS=Y0:ZS 

-Z0:SS=S0 

1990 IF KM+KT+KS<4 THEN 1920 
2000 ON BB GOTO 2010. 2030 

2010 IF KM-4 THEN HT=1: RETURN 
2020 GOTO 2050 

2030 IF KT=3 AND KS=1 THEN HT=1: RETURN 

2040 IF KT=2 AND KS=2 THEN XR=XS:YR=YS:ZR=ZS :SR=SS:H 

T-2 

2050 NEXT I : RETURN 

2060 ' v-x 

2070 DATA 1.0.0,0,1.1,1,0.0.0,1,1,1,0,0,0,1,1.-1,-1. 

1.1.-1.-1.1,1.-1.-1,0,0,0.0.1.1,-1.-1,1,-1.1,-1 

2080 ' v-y 

2090 DATA 0,1.0,0,1.0.0,1,1,0,-1,0.0,1.1,0.1,1,1,1.1 

.1.1. 1.0.0,0.0. 1.1.1.1.1,-1,1,-1, 1.1,-1.-1 

2100 ' v-z 

2110 DATA 0.0,0.1.0,1,0,1,0,1.0.-1.0.-1.0.1.1,-1.1,- 

1,0.0.0,0.1,-1.1.-1,1,-1,1,-1,1.1,1,1,1,1,1,1 

2120 ' v-s 

2130 DATA 0,0.1,0,0,0.1,0,1,1,0.0,-1,0.-1.-1,0.0.0.0 

.1,-1.1,-1,1,1,, 1.1, 1,1. -l.-l.l. 1,1. 1,-1,-1.-1.-1 

2140 FOR 1=&HC0 TO &HD0 STEP 8 

2150 RESTORE 2200 

2160 FOR J=I*8 TO 1*8+7: READ A$ 

2170 VPOKE J,VAL("&H"+A$) -.NEXT J.I 

2180 VPOKE &H2018. &HF0: VPOKE &H2019, &HF8: VPOKE &H201 

A.&HF7 

2190 FOR 1=0 TO 23:PRINTA$(0) ; : NEXT: RETURN 

2200 DATA FF. 81. 81, 81. 81, 81. 81, FF 

2210 CLS:PRINT:PRINT 

2220 PRINT TAB(9)"4L' lt^ 4t>< $&V " 

2230 PRINT 

2240 PRINT TAB (7)" tkX Z.' X" 

2250 PRINT 

2260 PR I NT TAB (7 ) " 1 ) fc/Uf ^ tUif ^ 

2270 PRINT TAB (7) "2) MSX HJJif ^ 

2280 PRINT TAB (7) "3) UXf ^ MSX 

2290 PRINT TAB (7) "4) MSX MSX 

2300 PRINT 

2310 INPUT " I' tt Lit* (1~4)";A:CLS 

2320 IF A<0 OR A>4 THEN 2310 

2330 ON A GOTO 2340,2350.2360,2370 

2340 UC(0)=1:UC(1)=1:RETURN 

2350 UC(0)=0:UC(1)=1: RETURN 

2360 UC(0)=1:UC(1)=0: RETURN 

2370 UC(0)=0:UC(1)=0: RETURN 
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(75-9-1' >CT; -^ < B ASIC7°P i>*7 
A<7)±J®fit«-^-r<75T\ JtPl* 
V •> >M7°P ^7 A<7)gB*S7' K 

ut.- 1 (z^|^LJ;^o 

(ffi|)10 CLEAR 100.&HBFFF 
©"7 •> >l§7 U— 9" > % B LO A D^^" 

>t§^— 9->ti\ *&ykwifr 

tltz(im$tltz)Z£lZt£Z> 
(U!l)20 BLOAD"DSCRC000.OBJ" 
©DEFUSR^^-T; n^t/tlff 7 hV 

(ffi|)30 DEFUSR=&HC000 

l^CST; *A=USR(0)*i:i^ 

Z C7) V v >1§;U— 5^ > ?r^ffl T 

S_hT*<75>i3g^i: LXl&s %— (z 
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■JW^wsm 



SCREEN 1T*L*rfiM/j:L *::£#& 
{fbtl3 (5*V7)*?'J— >^E— 

-#@i:LT(i, zti*rbfc£ 
,foim£; *ftb£[i)B#(;» 

^Mts mm<7>*( )"ftizm7F$ 

ft b Wtgffl*^^ b ft u i -5 c& 
;J§i£^bWftlJV(t'd:< tt5C 



*. T v •> >fg;u- ?- > £f$x. 5 d: 
-)HT-57°P^7A$- S ijXh'3 
H*iifcLTfcl*fc Sjg[T*jIi®<7) 
-#-B-MCS)£»^T*rb, * 
? p— ){,)[,— T>%wm LTV* 
%0)t) < fc>frZ>frt £o ^toti. 'J 

*H*C000*£^:£LTte o 



IIST1 



IVRfi^Tt-^flSfBi) 



1JBT SCREEN 1,2:C0L0R 15, 5, 5: KEY OFF:CLS 

20 GOSUB 1MIMT 

95 X=15:Y=11 

1M A=ST1CK(5) 

115 XX=5:YY=5:0N A GOSUB 255.215,225.235 

,245.255,265.275 

125 X=X+XX:Y=Y+YY 

135 X=X- (X<5) + (X>35) : Y=Y- (Y<8) + (Y>22) 

145 PUT SPRITE 5, (X*8. Y*8) , 15. 5 

155 IP MP GOTO 355 

165 IF STR1G(5) GOTO 355 

175 GOTO 455 

255 YY=-1: RETURN 

215 YY=-1:XX=1 : RETURN 

225 XX- 1: RETURN 

235 XX=1 :YY=1: RETURN 

245 YY=1: RETURN 

255 YY=1:XX=-1: RETURN 

265 XX=-1: RETURN 

275 XX=-1:YY=-1: RETURN 

355 MX=X:MY=Y:MF=1 

355 MY=MY-2:PUT SPRITE 1, (MX*8. MY*8) , 8. 1 

365 IF MY<-2 THEN MF=5 

455 GOTO 155 

10008 1=5 

15515 A$="":FOR J=5 TO 31: READ B$:IF B$< 

>"*" THEN A$=A$+CHR$(VAL("&H"+B$)) :NEXT 

J:SPRITE$(I)=A$: 1=1+1: GOTO 15515 

15525 DIM C$(63) 

15535 A$="":FOR J =5 TO 15: READ B$:IF B$< 

>"*" THEN A$=A$+CHR$(VAL("&H"+B$)) :NEXT 

J:C$(I)=A$: I=I+1:G0T0 15535 

15545 RETURN 

15155 ' SPRITE DATA 5 

15115 DATA 51,51.51,53,43.43, 57. D7.D4.D8 

, FB, FF.FF.D7.C3.45 



15125 DATA 55. 55, 55. 85. 84. 84, D4. D6, 56. 36 

.BE.FE.FE,D6.86,54 

15135 ' SPRITE DATA 1 

15145 DATA 55.55.55.51.51.51.51.53.52.51 

.53.53.52.55.55,55 

15155 DATA 00,00,00,80,88,08,00,80,80,00 

,80,80,80,00,00,00 

15165 DATA * 

15175 ' SPRITE COLOR 5 

15185 DATA 5F. 5F . 5F . 5F . 5F . 5F . 5F . 5F , g¥ , 5F 

,5F.5F,5F,5F,5F.5F 

15195 ' SPRITE COLOR 1 

15255 DATA 00,00,00, 5F . 5F . 5F ; 5F , 5F , 5F , 5F 

,5F,5F,5F,55.55.55 

15215 DATA * 



LIST2 



&XOU-M\)-?-J 



10 CLEAR 155,&H8FFF:DEFINT A-Z:CLS 

25 PRINT"* *' ^ixfn-k 7->yn' T n?' i A *?-M7" 

nr 7A" 

35 PRINT"* MSX7Xf' V V '90 4*' 73' 7" 

45 PRINT-LINE INPUT"7yy:J' j]\v 7Y VI = &H 

'* :M$:M=VAL("&H"+M$) 

55 PRINT"ADDRESS=&H" ;HEX$(M) ; " (" ;M;") 

65 IF M>5 OR M<&H9555 THEN PR I NT" TV VXf 

+4W 7X, " :GOTO 45 
75 IF M>&HD555 THEN PR I NT" 7 V VlX ttW 
7A, " : GOTO 45 
85 PR I NT" >Ht A*?(Y/N) H ; 

95 A$=INPUT$(1) :A=INSTR("YyNn".A$) : IF A= 
5 GOTO 95 

155 PRINTA$:IF A>2 GOTO 45 
115 A=M+&H353:PRINT"7yya' T n?' =jk &H" ;HE 

X$(M) ;" (" ;M;") ill &H" ;HEX$ (A) ; " (" ; A ; " ) 7 
f " 

125 LN=1555:C=5:Y=CSRLIN:AD=M 

135 LOCATE 5. Y: PR I NT LN:FOR 1=5 TO 7 

145 READ A$:IF A$="*" GOTO 195 

155 A=VAL("&h"+A$) -.POKE AD.A:AD=AD+1 

165 C=(C+A)AND &HFF:NEXT I 

175 READ A$:IF COVAL ("&h" +A$) THEN PR IN 

T"f' -97 V- 7t7'J*' 7>m. ": PRINT" Line Numb 

er -" ;LN:END 

185 LN=LN+15:G0T0 135 

195 NA$="DSCR"+HEX$(M)+".OBJ" 

255 PR I NT" t-7* y7A . ( " ; NA$ ; " ) " 

215 BSAVE NA$,M,M+&H353 

225 PRlNT":^7!Jg7 y7y?.":END 

1555 DATA 21, 00, 18. 11. 23. C5. 51, E5. 5E 

1515 DATA 52. CD. 59,55. 21,55. 18.51.75 

1525 DATA 25. 55. 3E. 25. CD, 56. 55. 21. 32 

1535 DATA 23. C5. 11 . 25. 18, 51 , E5, 52. 41 

1545 DATA C3, 5C, 00, 60, * 



LIST3 



mmoyua^u 



5 CLEAR 155.&HBFFF:BL0AD"DSCRC555.0BJ" 

35 DEF USR=&HC555 

455 LOCATE RND ( 1 ) *31 . 5 : PR 1 NT" • " ; 

415 A=USR(5) 

425 GOTO 155 
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Tl^<<7)£\ BOOKfcl^Jblto 

fat-#;i3tt'bl2; ; cd^cd 

tzfrtd&wmffiL &jpwj*\<n 
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*=*(i, fcoi:i:o<UBOOKtc 

1*1* LAB Letter<7)S#?fl£fJ&A,T\ 
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<&<£-}<, 3Illi^iffl^.fc-#-|51<7)T- 

-v{* % £A,£::P7°>J^— >a> 
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Sflitt^fcuAtzcj* ^>7°>^> 

7*>fc**> o f?£\ 7-m-GCALC 
ft^Tfc<7)«-i«-T*MHLTL* 

-? tz i) frUi-tz 'j <mm.t ^X* 

•5/-*(^K6#BS) 



LAB Letter^ ii^(7)7 7 h^ 

T'lZ^^ $ tltz 7 7° U *— v a > 
(7)/ f— v a >7' -y 7°S T'T# T L 
S-5Z; ( >: 4@!(^ *Draw1.2" t, 
*Binder1.5"^* 
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•bs CtKifcHt^ HALNOTEZL 
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MSX&f7$=*JWHM 




7X*~#6^110MSXfflRS-232C*J- K U v S* r MSX- 

seriale32j ois^B^siJ&^nfco *zr#E#6e *mzt> 



RS-232CJWM! 

RS-232C£ii, ^yij^m^-x 






(ccitt)^, mmmmit 



(iso), a*xnm^(jis)t,cn 

CSftme^tft- RS-232C(i 

tztzL, 1"^TC0=i>ei-^ 
^xA<7)RS-232C£\ ZOMfe 

Tiiift L J: Oo MSX-SERIAL232^ 



(§)RS-232CH*2*0Db!:/B3?iJ 

14 15 lb 2J 24*5 




" 2 3 



II U I* 




RS-232CH*^0if 



17 



20 



PE 



M 



««§« 



TxD(SD) 



RxD(RD) 



RTS(RS) 



CTS(CS) 



DSR(DR) 



SG 



DCD(CD) 



ST? 



RT 



DTR(ER) 



RKCI) 



ST1 



ffiSJ&ffidl&SWi 



7 b-A^9 > K (SSfflSifi) 



2£Hx*-* 



m^-'p 



mmw* 



mmpi 



X— ^tZ^ Sbx-f 



^'xju?'^7 y K («fflgtfe) 



x-^ x v * > i^m* v u ymih 



mmimiL\sxy^$-<=Ly7(DCE) 



Smp§ibX>h*f 5>^(DCE) 



r'-^H^L/TV 



mmmmoy^^y^^-p) 



2l1Hi#lUX>S$>-1'5>?(DTE) 



IgfM 



ma 



AT: 



UJZ) 



A£ 



Afl 



AA 



A^J 



A2J 



UJ2) 



A?D 



fflfl 




PC-9801 v 'J -Xft iTT'lJ* 18* 

*sft^«i<7) i *> 1 1 feit£®i\ 

tZB*giCO=l>t a-^T'(Js * 

^li y 7-Mco a * > * T^-70u 

it* 25£°>(Dzi*??tzfrh 
tlVpTs RS-232C£CJ|51b&l\ 
TV U *<7)IBM-PC^-¥-<7)5#|«|(i 
9 fc°><7)RS-232C=l*;7?£f£o 

VU>*DynaBook*<7^Rilj(^(i % 25 
t° >(7)±if£xy x 7 K^?f 7ffl =i 

E]1 tm. 1 * CRS-232Cn#^? 

jTb, #*CUTfe. *TxD*ftfc'<7) 

T\ * (sd) " ft ttna -y =i c7)^(7>(i ■§■ 

£(J, JIS<7)JE5fc6$v£^;bLTl* 
*oft UTJIll «r*T#-a fc%g\ 



RS-232C(Z(iH 2 (7) J: o ftlt^tf 
3ftft 5 y £ eft * fc £ x. (r a " 

i:iN-53t^(&H41)«:iifiT*(3tix 

■y h<7)0, t"-y h (LSB)^bt'-y 
h 7 (MSB)c7)JllHM^cA(7)X^ 
x-5\ -^LTx-^co^TSrSl 
jfrt:* h 7 7°t'7 hc7) 1 £-£-;b-e- 
fc, •0100000101*^1^ lOtf-y h 
tf&btiZMIK (iiff755t^J: 
oTtt, * h-y7°t"'-y \-tf2 t'-y 

1 t'-y h-f'ojI^IJlI^&Z^b, 
RS-232C(JvUZ^'f >? — 7i 
-f7.£feWftTl^) 

RS-232CT1Sx-?<7)0£+12 
/10U I- T\ t—9(D 1 ..«-- 1 2#;U 

hT'gtftTo -TJ^xACJx-? 
0>O£Sl^T\ x— ?0>}&fi 
l^T'^^To ZC0ct^tZ^C7)^ 
f£Tlf-§-£3t;bT7Jit£, JiiftSfc 
SSKFM^SS)i:t^\ ^i-tz-y h-f 

>^-7i<^^s ^^l^ExAlZ 




«r^+-(7)MSX- 

SERIAL232 [KBSCO 
17j9417H([«ISIJ]s 
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■fcB0fl«tt« 

ttxitt tints i mRtti&mmm 

®t?a 

'modulator and demodulator" 

aejfLtaaitfcy, sit?-* 

tzsbcr>mWz 

®bpS(tf-tf-ix) 

*bit per second'CDBTC; 1 #fU] 

tto ' <V =3 >ilfiT(i300bps*Tb 
2400bpsfM s 7r ? S" 5 U T*(i 
4800bpsA x ib9600bps<73ii$/)<— IS 

®baud(*-) 

if" (7)Z^ f^ftltrATIt 
bps£baud(7)fc#— ScLfc(7)T-;lll| 
£ *l*<*> UK 1 1\ M'va >iiff ffl 
<7)1200bps<7) ; E7*A(7)gSISJl&£Mi 
600baud o bps£gft5- £fc*WS 



? ? W3K6* fejff£=l-* K <7»I S 
T'^tt; MSX-NET<7)7°P h =UU 
£S**Jt*£x iifSlg 1200bps, 
f-^18 t'-y k * r- -y7°kf-y 

(J->7 NlS^i^zfcHft-S,, 



&±smmm 



JWW*J3Sftflrc* Silff 7a5t<7) 

C£ /\°Vll>iifffflC7) ; ET f Ac7) 

^■<cf£bftT^-g> 



¥SMiM 



7 ? v $ U ^ MSXHffl * -y h T 
&3THE LINKST1s&bftTl*£ 



mn\JWf 



?>ft &V ho 8 L'-y h a>r— # \Z 
iV)T4 <7)1 t"-y h&igiqU 9 
b'-y h (7)4^(7) 1 <7)$tfr*rftb-ff£ 

mzt£z>£n[zt% aui 
ft b-. ilfl (3K u a<& ofc£ mfr 

<7)fc<7K\ 1 <7)ft*«^B[(7)^5tfe 
&S MSX-NETT1iteb*lftl\, 



®CRC 



(2/— 7-;us/-) 



"cyclic redundancy check (MM 







HMt-feM* 

r-$(8fcVH | • O O O 

■Hi* 



-ft* 



£r%«4 



^w\n/MAfji/\mif 



XWv7*fc'-,|. 



tMSX-SERIAL232£figl\ 2400bpsC7)MNP ; E-r A t MSX^Iti^T-frtz £ C *> 



^ttfS tt A"£05£?^i£fiUfc£ 

£3o 7.7-hfc'^h©0l;:, tf 
■y K ft- to tf »j K 7 it r O^x 
-*(=BH41), 2.h*y7tf-yK© 
1 ^afe-Mfc, 0100000101 £1 >o 

TjLV?V-J**&.&Ltz± 1 tm 

®ATt?a 

TtVMm^ 7®ktf%m I tz • 

'ET'A^JffllT *fc«)<7)t^o ft 

•ATDT037971 01 0*^1^-5 S^U^ 
&5£, ^xA^MSX-NETdllS 

£wc < n%fc>mz 

*MNP*£l^<7)li x *Microcom 
Networking Protocol"c7)IB§^T\ 

Lfziiff^5t<7)d: 1988%(;[1 

IS«fiSISf»Pp^M^(CCITT)<7) 

Tf3#>bft/c fLT v Zc7)iiff 
^£4te)£7*A0>G£<& *MNP 

Cc7)MNP^Et-'Ac7)^ 1 C7)ift!lvti. 

7 s - ^ C7)fa ij *<£o*^( f x gff 
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^LT, m2(7)if#M(i^^ci: 
*li|«Siiir i: ^ -5 75 >i *^i \ x 



iotfws^iii6n«fttf/£oRS- 

832CttT , -^0€+127KJbS, 1 

^-^o^sugv i £®nwr 

n%Z£ MSX^^^MNP^r^I 
T S 'jZ^(i ft < s (5^<7)^E jA t 

MNP^ExAtKi, ^7^1 ^b 
7 ^ 9 ( 8 (iUffl-fb^tlftA^fc) 
CO 8 ^I*% -So ^ ?x dlb&fi. 

(zonx, T'-^ffiftiftir^fligi 
*S6iP $ tiTiiff ^^ fc_h*r-? T 

l^<-ifb £fcPLftS?7*<7)MNP 
^ET-'A^Siff Lfc*&(Z(i x gu 

^SKi'n-s i -7 (zfto-tvSc 

*KftT*(i, 2400bpsCO ^v^5 

mifi$n*j:-5CftTfco fc*>^ 

^ ^ =7 X 4 (7) -t 9-' A (7) (5 -5 jf& I n 
7, 4 COi^1 .6^ ^-^^t-'A^^CO 

y^Hct-So fcfcjttf, *«b^U«!> 

IST'^ -y h n - ? {Z T -y 7°P - K 

r 5 ft a, t*§£-£, afi^ra*^ 

< ft ■? T«I^'4^:^li5^T'# So 
T"fc N ^-v-y h COJf -g-( J^g^cOA 

A<7)ii$(iB||^ftt^o 
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xmmm 



h u v *> c ct %m&<7>&3&, tz t 

*J2'RS-232C-r >$— 7i-f X© 
*CALL COMINI*^ tV*?<> 
?-7i'f*©*CALL FORMAT" 
(7)J;-?IZ, BAS^^^/SSTS 

RS-232C©*OPEN "COM:"*©<J: -3 
l; s BAS^OPEN^^AtBTJ 

RS-232C*>>H^^8*£ v -> > 
|=7°P ?*7 A6WFT3 *:#>©, 
1//3SBI0S* 4 s gtfZ tUZ htz 5 

x-T ** — h U y itlZfaMZtltz 
ROM( = ROM^j-h U7y)i:J:o 
T^Ii?tl-S>t>(7)o MSXJJWV? 

$PT-i>fc#)©7°Py j 7A£ % *(7) 

$T N MSX-SERIAL232T1/SS? 
ftfc*^- h ^ > h tijl 2 ©£ fc 

U„ £«>£#*=*% 

SAVE 

LOAD 

RUN 

MERGE 

OPEN 

CLOSE 

PRINT# 

PRINT# USING 

INPUT# 



LINEINPUT# 

EOF 

INPUT$ 

LOC 

LOF 

■yuv t °— =p< * ? (Dxmti t n 

UJ:-)!:, RS-232C£|ft*5«l:-5 



CALL COMINI("0:8N1XNNNN", 
1200, 1200, 0) 
©&3K, ■BteWfcft'WIC^-a 

^■T\ C0MINI^^-C7)1^?:1I®(Z 

Sfcs Zft<b©i£5ft*T— M 
>h£f^T, ^©fill^P?* 
7A<c^^%^i:> >3l€L& 
< -a* w«cia ;:£#*>%„ ^-n 

(i.COMON^COM GOSUB^^-T' 

Mil $ nsiii 'J &#tt< cpu©sj 

fc £ /Ltf RS-232C-1' >?-7i 
-f 7s^CPU(Zty'J &#ft#£3i~> 
fcllfo 2>-MJ-yv©R0MllA 
oTl^tlJUiA^Mil7 P P ^*7 A 

^LT, BASICt^'P^'vA^H 

6MM$ft, basics >?-7°v 

HI0fc©0M3.7 1 -M>h 



37>KS 


mm 


COMINI 


mimm(Dwmw>'£*? : g>o 


COMHELP 


COMINI©A^X-* 7 JS£7?a5«'VU7^o 


CQMTERM 


*— ^fflrE—KClBE^Ss 


COMDTR 


DTR(ER)H*§£ON/OFF-T5o 


COMBREAK 


7b-7fi^^^ifr§o 


COMSTAT 


RS-232C©7x-^7£3<#)3o 


COM GOSUB 


SiJ9&fl^I1*7JU— ^>©8l$&fi : £JSS3'5o 


COMON 


RS-232Cfr&©SJ9a»«SFqrr5o 


COMOFF 


RS-232C#6©SI9&»€SUJ:'3"5o 


COMSTOP 


RS-232CA x 5©»IOa»««S-r5o 




mtTht-vjyytRs-fflc 










""" 


M£>* 


> 








1*) 


1 ] 




" 


I 1 ' y-~ M 









?ti, H1©*t— M> h©H 

mw? % tz ma, m u &»#& 

£ &N?5 W377 ^fcffl^TVA 

< -©£#iw&#tf&£T^ 

tlf&COM GOSUB^Tlg^Sft 

tzn^wy'^-J- > fcWtti 

- ©J: tzBASIC©flJ'j iMfitt 

^ > h ©H*t tf+Br 3 ft* c 4: I J 
ftttOMNKC^ PAINT© J: 7ft 



ns «t a OT^wwsig* ^ l £ i 

£&, BASIC©INPUT^%* < +— 
rK- K^'b©A77 : §r : ^^Tt^-5 e fc 
7ftii-&fev ATD^^^SST* 
BASIC©fiJ 'J iZ^MJII* ^tfe $ tl5 
-i:izfts f:t, 

100 A$=INPUT$(1) 

100 A$=INKEY$ 

110 IF A$="" GOTO 100 
£-$&& ^H^©^p^©H^fW 
^KftS©^ BASIC©flJ^iZ^ 




RS-E32C>r-7Vb©i 



xhL-i- T-r*. 



floxW^ 



i — ■ 
a — 
J — 

4 

5 

6 

1 

2t 



*»'4 

- I 

- 2 

- 3 

- * 
• 5 

- 6 

- 



3M&.-4 




128 MSX2 + -r?-*.M 



MSX2+T2- 




a 






*fiS-E32C 

MSXT'ilffT&(Z(i 2 oc7)^->£ 
$rt£7J>£ :ti4-^fri:*- 

blUt-Dli., RS-232C2>-h 
'J'yy^\ H13(7)T(7)ct?(z 

^ a s- £ fc l T«iaemcggi§g 

f 6/33JO MSX^ftWtJ^lZ^-r 
A?!)«'jZ^(Z fr 3 £ s b % ^ioti 
^J^^fc-r-Stao Tfe v RS-232C 
£f£o /cil^-(7)Sm t> h %Mz*\ 
mi IZ S ^ET-'A^-h U-yvli 

mism^mfflfftti:; rs-232c^ 

- h U y v^$^.(j; (5*p<7)p > 
tfji-^Zfc^Wbft&o _b(7) 

uaiiacT)^^^ msx£±M3 

>£=L-9(T)5>-$.-f)\,t LTf£ 



4\' 



0*9* 



>V 






£ 




w) izT-vTziTmnzm-otzm 

%2<r>§&J\[t, ^E^'A^Jt^tz 

^bitTft^O^xA^IJfflT^ 

£Z£ 3^(ii:'tij(z(i300bps(7) 

^fA^^/co fz \1 1\ L^i T- 
(i2400bps(7)MNP : ET-'A^^^ 'J 
HUo fc*>*>A/g : <7)^T'AT'fciHi 
T#*(t^ «3 ; ET'A£te-3£ 

7ht^l\ /c^b. RS-232C;*} 
- MJ 7 ^(J* <7>£ $ X'=ETL.fz 

Itmvfr**, #ATItfcJ:<M 

<A,fc*c£ 

£C^T\ RS-232C(J*t,*fc 
=3 > t° n —> £ ^t'A &g$£f -5 



(§p MSX-SERI AL2320tt» 

flyfcr>RS-232c 

— » {aS-2*2c"| »| CPU fc ^ g jffcn 



MSX-SCRLAL232 



-232 



— H RS ' aL>2c 






<7)(zf&bnst><7) P>L°o.— 9 
(7) 1 #^>^:^t'aot 1 #t°><7) 
■til; ^Cc?rs##<7)f>$- N 

(7)T*^MLT^<^(tfc 

(tft£'&^i:#WcJ:')iz s p 

X < %A,tz [5] 4 [Z^ftWcDil 
^•(7) L°><7)^>£££^T;BW;: 
<7)T\ ##(ZLTft 

X-SERIAL832 

77 *-<7)MSX-SERIAL232li, 
fi^(7)MSXfflRS-232C^)- h U 'y 

il£}#oTl^ Zftli direct 
memory access" (7)B§T\ CPU?: 
£fr£-fiz % ^li22^tl^=i>b:°i 
-?<7).x^ 'J £!%<&##?- ZtzSb 
<nbcntj:<r)tz 

tZ\ht\ MSX<7)*i-MJ-yv 
*P>y Hz{2DMA£M-f-5>fi-§- 
1?t£\.\ ?<Dtz&bMSXT'DMMZ^ 
"smti £, l ^ t TSfrftT I vfc o 
L*rLMSX-SERIAL232(£ [*]5<7) 
J^IZ, *j-h U-yv(ZRAM£A 
ft 3 £ U? P P >7"*<7)fflfr^*jl 
T\ DMA£H3£.LTU-&** 

^-ftT'12, DMA£f£-) £fitf)^ 
^■Sx7)fc^>-) ; S^<7)RS-232C'T 

iWTZ -<£iz^ CPU£9TO^b<7)ff 



/z^fz tztz\ C(7)^iiI(Z(iglv 
^rB^^>^-2,<7)T\ i§i$(7)iiff(J 
mHfcofc^lt^ itz, 7P-y 
ti-xV^^^AtbTtl^lz^ SIJ 

ilff*§¥(Z *^o fc* ?r ft*? & 'JZ^ 
bh-^tzo tZ%ti\ DMA^rf^^. 
tfCPUcDflJ U iA^^I^"^#4'C0 
T\ 19200bpsT*(7)iifftprf|(z^ 

MSX-SERIAL232(7)t Oi:^)(7) 
#fii(iv 1 £<7) MSX (Z 4 •& g T'(7) 
MSX-SERI AL232^-^tX'# ?> C t ■ 
lifmfrDtZ^ MSXT J llg4H]i||c7) 
* -y h 7 - ^ £fFft -S ^ It /cfeo 

iiff7°P^vA?r^-9^«!), DMA 
^tTJU^^^-f-y^fc^i)^; 

mmmmtzisbo) 

ilff 7°P |>3/U/\> K7"-y ^ Jo C 
n(J^ \° V P >iiff <7) $ J ?* £ %%. 
fe*msbTffimLtz^ 1985%(Z 

^LT7 7 7.+-(7) r MNP^7^ 
■>tJl//\>F7'7^j„ MNP^Et'A 

<7)*s^*\ -Htswiiiit^^nm** 

Si:«!)bnTi^ ^^tiftv.^ 

3^(7)^T : A(7)tt>a^^0-5) tz&b (ZH 

ft $TOf M#<7) fc tt<7)g:it## 
iri^^c^T-s 4-^<7)^^_ 

IE TO , ^tigWlt4'. T 

fe<7)&T3fc3:T*:goT*a 

=rl 07-24 
jK3S«IBSE3IWUj6-1 1-1 

MSXv*'^>ilSSP 



MSX2+^^-*;u^^^ 129 






2 * 3 (7) Ci> £ fc T* L /c X* 
(7)/\-KWC\ r^^L* < 

< Sfr^-T'Tfeo 4£-§-£fr3£. 

?!r&-S><7)T-fft\ *AlilIII#"C(i 
£^<7>T\ "tZAHZ^ii^-otz 

<lUBLTi^-ttA, ?ZX\ fi£ 
& £'fc IJCM7 #<7>tt» T'Sfe^H 

?T S 4-HllifiBg* p -y hT;? 

'J *8itil#8!fE £ te Z> <r> X\ ^ ft 
tfrftcn 2 HKz^ltTSS^LTu 

** p -y h "^m^^rp^mi-i^ l 

MSX3>tr:i — ?(::&* *P-y 

^ffl^bftT^liTo MSXCDCPU 
T'$>-2>Z80A(i, ii^64*PM*-f h 

^Si^lz&oTufTo zftti 
il^T" 7 iz t. ^WSffid) 1 6fg t, 



*p-y Mzfi, S*7.p-y hi: 
8£!S* p -y H7) 2 g&tfA 'J £ To 
MSX(7)?fg[S*>- h U -y i>* P -y h 
tiT^Tft*^ P -y h *C\ S** 
P-y Hift*4o|:"r*££^'CV 

IZ^ILT, T.P-yh£±i^TC 
t tfX-% $ to Z fttffiBS* p -y 
h &<7)TT S£3S* p -y h fcftTt 
40TT0 ojij, g**P-y h 
4-3f"*T.C\ JiA?l^P-yh^y 
-/^-fcffiHrtS^ *P-y Hi 
£jBX38bfeW) *T, tztz\ % 
5S* p -y h C$|£1B* n-y YT ¥~7° 
9-&%m.LX7.n-y hifc^-iiip 

TSc:£liT#S-t+A,o fi£3ft*P 
•y hZ^y^-ti, &< ST'feS 
^7. P-y HZ^HScLT^ffl-rSfc 
<7)t£<nxr? 

MSX2, a oil> c MSX2+(7)FW? 
(£ S*7.P-> h OHv^xAROM 
AlCS? ft, m** P -y h 3 £[*] 
STOKS L TftSS* p 'y h .hi- RAM 
^■>*xAR0M<7)— 35, ^LT^- 
<T> -7 •> >#^-<7)rt/t V 7 h #ftt*- 
bfttl^ t><7)#^i 1 Xto 
*<7>fctf\ m$lZftjj£ftX^Z> 

t. p-y Mi, S^^P-y h 1 £S 
;£*p-y h ZtzUiXl^JiiX- 

to ztuzfc Msxrt^tzf^n 

Tl^MSX-SYSTEM2i:i^-9^:ffl 




VLSI<7)tt , THaSnTV.^<7)T*t"o 

MSX(7)#7.P-y Hi 4 -3-flJ£ ft 
T, ^ft^'ft^-v (0000H-3F 
FFH) N ^-v1 (4000H-7FFFH), 
^<— v2(8000H~BFFFH), ^<— 
v 3 (C000H-FFFFH) ^^(i'ftS 
to Z(D : &'<—i>t) < \SfoZ>7n<y 

ftT, <-yO*^<-y3^T' 
T*i*l3ELfc64*P/N*-f H7)SHi: 
^■5*3(tT*T ^S'^s H^EU 
^H^LTtS, 16+P^'-f hx 4 
/ <— v-9-x 4 S*^ P -y h x 4 fe 
?I^P-y h = 1024*P/N*-f h= 1 

Htf*^ v tte&tnxto 

MSX<n{±m*ffitz LT^bftT 
L^-5 77 h9XZ4'bii\ *P-y 

H7)#^-(i x ii^(ijftmL^<T 
fc, i:"z(z^-h U-yv^N-K? 

^oTUlto mifC7)73-h U-y 

vzmixmim-sits ^p-y f 



(7)R0M*-h U-yv (^i:x.(i'P 

f 5 <7>#n ote£ if) ^i^ 'jz»i* s*^ 

ROM^i— h- 'J-yy^J t^^ x #^- 
(7) ^ P -y h d|j| L xm "5 'JZ^1± 

MSX*«^^$ftfc^^ti. l»rtt 
^bt)^ro?ftT^fcfiA?i^p-y 

tTJTffi'-h* il^T'tiNEOS 
(0$lUy hp-77.)f;ofc1 
%h(7)Sip n p<7)^(7)i -5 T'to ifes 

fti£(7) MSX^*(7){ffi^i: ib-^-S i: > 

^ t -^ i: fc ^ <7)fii^(z it *mm 

W t^i&ttXimmi-lt&h 

ftte^b<Dba£ftx^z>(nx\ 

—Mizm^£lt^*J)ft£-&A, 

zomtofrbs SfiM* n-;YT y 

-ft-ZSftUzMts *tUt^ 
ft^^te i -9 tzS*)ft S "to fAS 
#fc % UoBMv^f1986^11^~ 
12^^-(7)7 :: v^^^7 7 hT'fc^S 



130 ^-K^i7tlSft 






^ ZEMtftefr^tz J: iztm L 
T^lt„ ^B#(iR0M^-hU7 
i>(n-Y— A1" > 'J — (7)ZL— Hf— # 

$fritz<nb\ **i£fcMSX<7>$£ 

wyvjflfl&izm&jWzttx i > ft 

*>££*&izftt;, r Jtt*n.y h# 
ftL'tHj £i^W&*>z:iE>-e 
Hfrtt€ «t -5 izft l J s '>*-k\i $ 

ft«fc 9 T"T£\ ^(7)J»A^jgT*# 
¥Z1T\ 4-[Uli&3fM<7)f£ffl 

mrEizmi)frfrtiz±7 &&mt 
xmiixfrSLtzo 

□ttMXP^MMHi 

ii£<7)J£3g* P7h7 ?'7°? - 
•y hfcfiBS-rsj^KttoTi** 



MSX(7)*%(D{±m*ffitzT i. 1 tZ 
TZtzfilZlZ^ t'UTfc^-F 

o xTafism*:* < ft -y t t l , 

/;*\ |W]B#tZ4of£fc?£T§£s 

£ ft 5 z: £ *rW *b tiztc WM 

(Kffl&lt. + 5 tfW h , + 1 24t/U 

h N - 1 2ii/u h (7) 3 MA$it 
tfft'J £■£*,„ ZMt, mi5c7)^ 

£f$* tfn- z; z&% Ll^i#^ 
# x p* hT«y/^Ji(t5z:^« 

fg— li, 1^|;4 7D7 Hz* 
- h U -y S**l*U&fcTflM £ ft 

£±i& L T ^ b fttf ft b ft I V7) T\ 
^(DtzlSblZ^v 7 7 IC^'J^lZft 



fcf >/ \°-y ^— S?0V \*«y 7 7 IC^tZ 
(Js 8@8^fc<7)/N*'y7 7|l]»* ? 
XoTtvtf*^ ^tilzLTfc, 
/\'7 7 7 IC^'HT-^ft < £ fc 5 4B 

(i'j^tzftusfo 

h 7 ?' 7°? - £ g fFT 5 £ L* (7) 

(ix / \- K 7 x t- <r>Wktffrtz H 
* £ < ft U % a * h gftflKLBe 

<7)T*(iftL^^^ii$ns-r * 
z T*#®tt, ,mmo -5 T**<7X± 

ofc<7)(Zft£ «fc -5 ClHH>t#* 

Uz 

-7tZ;^bLSL/z cnci'), 
OPKaflffibtfa* l J * To S fc . 

^ tfHiEt j± u ft < ft »j * t z: 

gyptf-fj— $#&& 2^P-y 
h^-f7°c7)IVISX(J, 3^P-y Mz 
ft^c^izfttj^To 

fcU : <7)t(£3g^ P -y h 7 ?*7° 



4^P-y Mzfti.z;^(zftij^T 
UK ^*-y7rlC^^fflLTUftu 

(7)T\ «»<7) 7 y?9 -mm it x- 

tits SOUND INwf(49#t°>) 
(is ^-7J(7)^P-y h^bL^Offl 
T^ftV^i^fcbitfco 51& 

MSX[*]g[5c7)PSG i:c7)-it7 > K $ -y 
7T.?-T-5.fcc7) (/it^.(fSCC^rt 
HLfcP^-$c7) rt^t>hL/ 
-7 2j) «$>UfT*\ |S|^(Z.5. 
tz^(DVO> K^-y 7°^iJfflT?) 

#4tTlvfttv60^ HPg(Zf$ffl 

T^>lz(j^M^'ftL^#x.^^b 
TTo 

vv/cO(7)S0UND INi^^^rf^ 
7°IC^ N ISJgg. P>T ; >+f-ft^ 

(7)g(5 H n p*<'jZ^ i: ft tj s ius§c7)ffla§ 
mT'$Zl: J HzL£L1z 



74ALS11 

VCC 1C 1Y 3C 3B 3A 3Y 

-jT4UT3UT2Lmuiouyi^^ 



CP 



m 



74ALS32 

VCC 4B 4A 4Y 3B 3A 3Y 



Hininin4j-iinin7r J 

1A 1B 2A 2B 2C 2Y GND 



ETTO 



74ALS133 

VCC M L K J I H Y 



1A 1B 1Y 2A 2B 2Y GND 



F 



■rLiiin3riinirTirL7_r^ 

A B C D E F G GND 



74ALS139 

ENABLE SELECT 
VCC 1G 2A 2B 2Y0 2Y1 2Y2 2Y3 

■Ji^5LMJT3lJT2lJTTU^ 



Jl. 



3ZQ: 



G A .B Y" Yi Y 
Y 



El 



r 



A B 



~7 



Y" Yi Y z Y: 
I 



TT 



74ALS352 

STROBE A 
VCC 2G SELECT 2Y 

JT6Ui5UT4lJi3Ui2UTiLj1oU^ 



74ALS273 



Tinininimnininii 

1G 1B 2B 1Y0 1Y 1Y2 1Y3 GND 
ENABLE SELECT 



74ALS540 



2C3 2C2 2C1 2C0 2Y 
2G BBAA 




^iTuninAninAHinzr 



STROBE B 
1G SELECT 



1Y GND 




VCC 



A I CLEARl ICIEARI 
<T CK< >i-C >CK 



CLEAR 

CK 
D Q 



Q D 



CLEAR 
CK<)>i-Ct>CK 



D Q 





A-K^l7*Jgft 131 



4- £ T-fF-? tz 4" T1 J. *agfttgjB 

fc»*Lfco f^ST-SS^^ TTL- 
IC#7f@, Mffl50t°>y^-y h 
a<2f& =i>7='>^-^8-fi, * 
LTMSXfflAMMTTo 
TTL-ICUfl^CftLSyM 7°ct US 

mmx\ l &* fei&>^»m^ ? -r 

7*-CA*ALS?-f T^fflUT** L 
fc &<& t'l LTfeA¥LtZ< 
Utf-^li, 74ALS139fetfttJHC? 

-r y°h i < is ls 9 -r 7°izs# ^x. 

^TagT'To U6>U 74ALS139ISI5 
lvf*l<7)IClZLTfc, ^-a-lilK] 

l^s■y•^(7)T; ^als^-ct^ 

^nT1i#p15 a p(ZOUTl^ b 
Tl*#£L«f9 131^-^(7)[2]fc 

74ALS11(i % 3A*ANDy— h 
^3-fSA-pfclCTTo AND^r— h 
IS, tA7), fctfrtOTOItfr- h £ 
&&Tz£fcT#i:To /■<?*- 
vlS, H^XWDIPTto Z<7)IClSv 
BUSDIRMllIUSt^, &3S*P-y 

74ALS32tS s 2A^0Ry-h^' 
4 10Ao fc ICT'To ORy- h (J* 
A*. fctb2j<7>ANDy-h£#fc 
TZ£kT#|:To ^°-y^r-v(is 
1 4 t° ><7) DIPT'To SSR* Q7hU 
VXfTf-txm&t., BUSDIRM 



74ALS133li s 13A2)<7)NANDy 
-hTT /\°-yy-vti16t:°><7) 
DIPT'To SHS*n «y h L/y^^ffl 
7 KU^t^I— K(lf&(Zffl^Tl> 

74ALS139CS, 7*7/1/7^71* 2 +f 
[eKA < 2'f@AofclCT'r o Zfttt, 
2*(7)-teU? hA7j(A s B)X'Z 
bA,7ctH7j(Y0~Y3)£ s -f*-7 
«*J-{6)^L«>t.#K: % LtZt 
Z>b<DX'To '$?&— SH*, 16 1° 
><75 DIPT'To Z<7)ICtS, #31* p 
•y M^^T^-tz^mg&fc, fefi 

74ALS273CS, T??JUD-FF(D 
7 y -y 7°7 P -y 70 ^ Wft3 ICT 

T D %.tt*c*^.^*^ttHiSao 

£°>(DD\PX'To ZC7)IC(ZlS*il? 

n^, ^ii^'jT-CJ-b-y h) 
? -f 7'<7>D-FFA< 8 •fSA-? T I ** To 
D A7} tZ-^x. b ftT I * -I) t-'- 9 £ s 
CLOCK A^AL^-htf U / \MU* T 
M»&A,T* QtiiTJtztH^Lf To 
CLEARS L£T3£\ D-FFtS8flI] 
fcfe^'/T— S*lT, Q=L£fc' 

»J*To4-|IKixZ<7)iC£flfflftaa 

•y hUv7.?£LTffl^T^i:To 
74ALS3521S, f-5-tU^^/) ( 
2£§Ao7clCTTo /N°-y^-v(216 
t°>(7)DIPTTo Z(7)IC(SA V BCO 

tuy hA^TiitCS'ftrcA^CO^ 

ib C3 g: TOTLf fc -3 £ tHTJ Y izmi 
£-£TtB7jLi:To *hP-7A 

IztftfjteftlZHlzfcUifo 2ffl 
(7) A, B-tzU^ h.A£tt£3C$ 



Tte7Z£liT*# £•£*,„ 

74ALS5401ST? ? JU* U -7.x 
— h-f Wt- ?/\*'y7"rT*"T '* 
7^-vll 20 1°>(7) DIPT'To * 
'J-*?— K£Wk 3 0(7)fl&5£ 
^9,&n£T\ H U^Jk LL"<Jb 

£ io -5 fl^(7) f* v * /HHg&T-ffl i ^ 
5^>»«itf?4rft4 t iz-^bftT 

l^(7)TTo 1G = 2G = Lc7)i:#(; 
lis A7J<7)^38I^S*ELTtH*L 
$Tf)\ 1G = HfcL<li2G = H<7) 

\.\% i w tmi: ftKC %' u s To 

cc7)IC(i, Jj3i^P7hU->7^ 
|*|^^ s MSXfJ^ f'-y h Sfe L T 

mfr&Vtzsbm— m<nX3}4- 1 

^LT^fflLT^STo 
~ tl "b(7)ICCOVcc7 < > (+ 5 # 

*Ji{±t >T\ GND7<>ti-f(7) 

««ftJi*5*^*"f. ^S'J^ 20 
t°>(7)IC(i2.0#t:°>* < VccT', 10# 
tf>3&<6NO„ 16t°>(7)IC(i16#t:° 
>^*Vcc s 8#t°>^GND 14 1* 
X^ICc^^i^J, 14»k'>* < Vcc 

7#t>**GND*:JSCoW*t"o 

TTL-IC<7) AW Z (7) J: -7 (Z ^ -5 T 
^•S)(7)TT*\ 7473^7490(7) J: 9 
tzil-3 Ti^ h<n b h l ) £ To 

f$pf)um&<nm®MXM, n 

^-OtfWfeznx^zzttf 
£<hi)£Tfi\ c-Hv>fc*a 
ti«i 7 -r > ^r^e L 4 < T t> ^ 
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>]^® 6 *P£©5-HS2 > ©ftSB. 

E-Hfi£l^©tfU5l:t<!f x 35 
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tt77?-«frhui-f a 



5/u&y-fr>JKd*!ISLrn5©*: 
UfrU lfrirzttTctt©^^ 

rigor <5©i*x *©5UL^i; 
tf-r^o $3Rtf*iy»&©fc*o ^ 

rsu\ 
rtt^-A^^r^cfc^o MSX2+ 

S©RPGr\ ^Sy@Srl/£(i&lV 
5ctod:gilc&o/c©[ct N lH®r 

^^^-tf^Burt7.^p-;bU 



*fcs +-b7./1v 
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5A©-gB!3, TAKERU^fclSA^- 



i>'v7 h<Sbri§ro£?i^o 

•SSSBP1 ©^-A5/7-U/f-g|iP1 
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nmw*s. '£«A©ftp/uK«)£3§iei,fc 
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SCORE 00000 JUMP 
ROUND 1 
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XO.YO £A£©fflI 

ex.ey momm 

M(n) 7'^f-^ 
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JP 
RD 
ST 
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100-340 

350-450 

470-620 

630-780 

790-820 

830 

840-850 

860 

870 

880-900 

910-990 
1000- 
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SD$ XJ—VU)^-^ 

VP VRAMOx-^ 
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200-290 !9CD$i&&JI 
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520-590 *l»52*T'-$'f&$ 
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T ZMlZ'Sk-fn * <7 £ tzlty"- 
-7ny=7h.<nm&3 i M$. 136- 







TILER 



1-JW DEFINTA-Z:D1MM$(15, 1) , M (119) , ST (7, 1) 
: C0L0R15, 0, : SCREEN5, 2 : OPEN" GRP : " AS#1 

110 ' INITIAL 

120 F0RP=2T014:READI, 10, U:COLOR=(P, I, 10 

,11) :NEXT:GOSUB910 

130 VDP(19)=0:SETPAGE, 1:CLS:RD=1 

140 FORI=0TO2:LINE(I*16,0)-STEP(15. 15), 1 

,B:LINE( 1*16,0) -STEP (14, 14) , 9+ 1*2, B: LINE 

(1+1*16, 1)-STEP(13. 13), 8+1*2, BF:NEXT 

150 SETPAGE,2:CLS:LINE (0,211) -(255,0), 14 

: PAINT (255, 211), 14: PAINT (0, 0) , 7, 14:LINE( 

32, 182) - (223, 204) , 0, BF : I =RND (-TIME) 

160 PRESET (40, 185) :PRINT#1, " SCORE" 

170 PRESET (40, 195) :PRINT#1, "ROUND" 

180 PRESET (152, 185) :PRINT#1, " JUMP" 

190 SETPAGE.0 

200 FORI0=0TO17:A$="" :FORI=0TO31 :READB$ : 

A$=A$+CHR$(VAL("&H"+B$)) :NEXTI : SPRITES (I 

0)=A$:NEXTI0 

210 DEFFNM(X,Y)=X¥16-2+(Y¥16-l)*12 

220 FORI=0TO15:READM$(I,0) :NEXT 

230 FOR I =0TO15 : READM$ (1,1): NEXT 

240 FORI=0TO7:READST(I,0),ST(I, 1) :NEXT 

250 VDP(1)=VDP(1)AND191:PUTSPR1TE0, (0,0) 

, ,0:PUTSPRITE1, (0,0), , 1 

260 FOR1=0TO3:PUTSPRITE2+I, (0, 0) , 2-IM0D2 

, 16+IMOD2:NEXT 

270 COLOR SPRITES (0)=" !!! I ! !&&&&&&$$%%" : 

COLOR SPRITES (1) ="######/////#####" 

280 EX(0)=40:EY(0)=31:EX(1)=200:EY(1)=31 

:OE(0)=0:OE(1)=0:EF=0 

290 XX=121 : YY=173 : SC=0 : JP=0 : TM=0 : AN=0 

300 GOSUB830 : FORE=0TO1 : GOSUB870 : NEXT 

310 COPY (0, 0) - (255, 21 1) , 2TO (0, 0) , 

320 GOSUB940 : GOSUB840 : GOSUB860 : GOSUB880 : 

GOSUB890 : GOSUB900 

330 VDP(1)=VDP(1)0R64 

340 PLAY" S0M4000L16O4" , " S0O2L16" 

350 'MAIN 

360 ST=STRIG(0)ORSTRIG(1) : IFST=-1THEN640 



370 ST=STICK(0)ORST1CK(1) 
380 IFST=0THEN470ELSEDM=ST-1AND6 
390 X0=XX+ST(DM,0)*8:Y0=YY+ST(DM, 1)*8 
400 I0=X0¥16-2: IFI0<0ORI0>11THEN450 
410 I1=Y0¥16-1:IFIK0OR11>9THEN450 
420 1=10+11*12: I FM ( I ) =3THEN450 
430 I FM ( I ) =0AND (STR I G (0) ORSTR I G ( 1 ) ) THENM 
(I)=1:GOSUB850 
440 XX=X0:YY=Y0:GOSUB830 
450 I = (DM¥2) *4+AN*2 : VPOKE&H7602 , I *4 : VPOK 
E&H7606, I*4+4:AN=1-AN:GOSUB800 

460 ' 

470 I FTMMOD8>0OREF= 1THEN360 

480 FORE=0TO1:U=FNM(EX(E),EY(E)) :P=I1:I 

0=0 : DM= I NT (RND (1) *2) +1 

490 1 = 11-1 :GOSUB600:I = U + 12:GOSUB610: 1 = 1 

1 + 1 : GOSUB600 : I = 1 1-12 : GOSUB610 : OE (E) = 1 1 

500 PLAY"V12O5L28CD+EV10EV7E" :X0=SGN(PMO 

D12-I1MOD12) :Y0=SGN(P¥12-I1¥12) 

510 FORI =7TO0STEP-1 : EX (E) =EX (E) +X0 : EY (E) 

=EY(E)+Y0-I :GOSUB870:NEXT 

520 FOR I =0TO7 : EX (E) =EX (E) +X0 : EY (E) =EY (E) 

+Y0+ I : GOSUB870 : NEXT 

530 I FM (FNM (EX (E) , EY (E) ) ) O1THEN590 

540 COLOR=(10,6,0,5) :COLOR= (11, 7, 2, 7) :PL 

AY" S0M5000O4L48" , " S0O3L48" 

550 FORI=0TO119:IFM(I)O1THEN580 

560 PLAY"C+","E+" :M(I)=0:GOSUB850:IFSC>0 

THENSC=SC-100 

570 GOSUB880 : FOR 1 0=0TO20 : NEXT 

580 NEXT:GOSUB910 

590 NEXT :EF=1: GOTO 340 

600 I F I 1¥12<> I ¥120R I <0THENRETURNELSE620 

610 IFI*(I-119)>0THENRETURN 

620 IFM(I)=1THENP=I :RETURN500 ELSE I FM (I) 

=3ORI0=DMORI=OE(E)THENRETURN ELSEP= I : 10= 

10+1: RETURN 

630 ' 

640 IFM(FNM(XX,YY))O2THEN370 

650 PLAY"V12O4L28CD+EV10EV7E" 

660 FORI=7TO0STEP-1:YY=YY-I :GOSUB830:NEX 

T : FOR I =0TO7 : YY=YY+ I : GOSUB830 : NEXT 

670 PLAY"V15O1L20FGV12G+V9G+" 

680 FORI=7TO0STEP-1:VDP(19)=(256+I*16*SG 

N ( I M0D2- . 5) ) M0D256 : NEXT 

690 JP= JP+ 1 : GOSUB900 : FOR I =0TO500 : NEXT : PL 

AY" S0M5000O6L48" , " S0O3L48" 

700 FORI=0TO119:IFM(I)O1THEN730 

710 PLAY"C","E" :M(I)=0:GOSUB850:SC=SC+10 

: GOSUB880 : I FSC>= 10000THEN760 

720 FORI0=0TO20:NEXT 

730 NEXT:IFJP<3THEN340 

740 PLAY" V1403L24DGV12G+" :A$=" GAME OVER 

" : GOSUB920 : PLAY" S0M7000O4L8D4G4AA+GAV13D 

4V11D8" , "S0O2L8DEAGDGEGO3V12D4V9D8" 

750 I FSTR I G (0) ORSTR I G ( 1 ) THEN250ELSE750 

760 PLAY" V1403L24DGV12G+" :A$=" ROUND CLEA 

R" :GOSUB920 

770 PLAY" S0M6000O4L16F+GR16FR16ER16FR16 

GR16FR16ER16F16R16DDR16DE8GR16D8" , "S0O2L 

16DEDEDEDEDEDEDEDEDDDR16DE8G8D8 
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780 I FSTR I G (0) ORSTR I G ( 1 ) THENRD-RD+ 1 : I FRD 
=6THENRD=1 : GOTO250ELSE250ELSE780 

790 'SUB LOOT IN 

800 DM=TM M0D8+ (TM¥32) *8 

810 PLAYM$(DM,0),M$(DM. 1) 

820 TM=(TM+1)MOD64:EF=0: RETURN 

830 PUTSPRITE0, (XX-8. YY-16) :PUTSPRITE1, ( 

XX-8, YY-16) : RETURN 

840 FOR I =0TO1 19 : GOSUB850 : NEXT : RETURN 

850 COPY (M ( I ) *16, 0) -STEP (15,15), 1TO (32+ ( 

IMOD12)*16,16+(I¥12)*16),0,TPSET:RETURN 

860 FORI=0TO3:COLOR=(7,0, I ¥3, I) : COLOR- (1 

4, 1,0,0) : NEXT: RETURN 

870 PUTSPRITE2+E*2, (EX (E) -8, EY (E) -16) :PU 

TSPRITE3+E*2, (EX(E) -8, EY (E) -16) : RETURN 

880 PRESET (88, 185) :PRINT#1 , RIGHTS (STR$ (1 

00000 !+SC), 5) : RETURN 

890 PRESET (80, 195) :PRINT#1, RD: RETURN 

900 PRESET (184, 185) :PRINT#1, LEFTS (MID$ (" 

•••", 1,4-JP)+" ", 4): RETURN 
910 COLOR=(10,2,3,0) :COLOR-(11,4,5,0) :RE 
TURN 

920 PUTSPRITE0, (0, 216) :FORI =0TO20:LINE (7 
8, 100-1) -(177, 100+ 1 ),0,BF: NEXT: PRESET (84 
,96) :PRINT#1,A$:RETURN 

930 FORP=0TO9 : FOR I 0-0TO2 : READA$ : FOR I -0TO 
3 : M (P* 12+ 10*4+ I ) =VAL (" &h" +A$) ¥4* I M0D4 : NE 
XTI, 10, P: RETURN 

940 ONRDGOTO950, 960, 970. 980, 990 
950 RESTORE1710:GOTO930 
960 RESTORE1720:GOTO930 
970 RESTORE1730:GOTO930 
980 RESTORE 1 740 : GOTO930 
990 RESTORE1750:GOTO930 

1000 'PALET DATA 

1010 DATA 6,0,5,7,3,0,0,0,0,0,5,0,2,2,7, 
0,0,0,0,4,5,0,6.7,2,3,0,4,5,0,5,5,0,7,7, 
0,0,0,0 

1020 'SPRITE DATA 

1030 DATA 07.0F,0F,0F,07,01,00,3F,00,FF 
1040 DATA 00.3F.3F, IF, 1F,00,F0,F8, F8.F0 
1050 DATA F0,40,00,FE,00.FF,00,FC,FC,F8 
1060 DATA 00, 7C, 00, 00, 00, 00, 08, 06, IF, 00 
1070 DATA 7F, 00, FF, 80, 80, 00, 00, 00, 00, 00 
1080 DATA 00.08,08, B0.FC, 00, FE, 00, FF, 01 
1090 DATA 01, 00, 70, 00, 0F, IF, IF, IF, 0F, 02 
1100 DATA 00,3F,00,7F,00,3F,3F, 1F.00.3E 
1110 DATA E0,F0.F0,E0,E0,80,00,FE,00 1 FF 
1120 DATA 00,FC,FC.F8,F8.00,00.00,00.00 
1130 DATA 10, 0D, IF. 00, 3F. 00. 7F, 40, 40, 00 
1140 DATA 0E, 00, 00, 00, 00, 10, 10,60, FC, 00 
1150 DATA FF, 00, FF, 01, 00, 00, 00, 00 
1160 DATA 07,0F,0F,0E,0E.00,00,06,01,07 
1170 DATA 00.07,07,03,06,00,E0,F0,30.C0 
1180 DATA 20.00.00.3C.E0, 1E.F0.CC.EC.F8 
1190 DATA 00, F8. 00; 00. 00, 01. 01, 03. 07. 01 
1200 DATA 06.00.07.00.00,00,00.00.00.00 
1210 DATA C0, 30. D0, E0, FC, C0, IE, E0, 0E. 30 
1220 DATA 10, 00. E0, 00, 03, 07, 07, 06, 06, 00 
1230 DATA 00,00,07.00,06,01,03,03,00.03 
1240 DATA F0, F8. 98, 60, 10, 00, 00, FC, 00, FE 



1250 DATA 00.FC.FC.F8, 1C, E0, 00, 00,00,01 
1260 DATA 01, 01, 03, 07,00, 07, 01, 06, 04, 00 
1270 DATA 03,00,00,00,60,98,E8.F0.FC,00 
1280 DATA FE, 00, FE, 02. 00, 00. 80. 00 
1290 DATA 07.0F,0D,06.01.00,00,3F,00.FF 
1300 DATA 00. 3F, 3F, IF, IF. 00, F0, F8, D8, 30 
1310 DATA 40,00,00,FE.00,FF.00,FC,FC,F8 
1320 DATA' 00, 7C. 00, 00, 02, 09, 0E, 07, IF, 00 
1330 DATA 7F, 00, FF, 80, 80, 00, 00, 00, 00. 00 
1340 DATA 20.C8. B8, F0.FC.00, FE.00.FF.01 
1350 DATA 01, 00, 70, 00, 0F, IF, IB, 0C, 02, 00 
1360 DATA 00, 3F,00,7F,00.3F,3F, 1F,00,3E 
1370 DATA E0.F0,B0,60,80,00,00,FE,00.FF 
1380 DATA 00,FC,FC,F8.F8.00,00,00,04, 13 
1390 DATA 1D,0F,1F,00,3F,00,7F,40,40.00 
1400 DATA 0E,00,00,00,40,90,70,E0,FC,00 
1410 DATA FF, 00, FF, 01. 00. 00, 00, 00 
1420 DATA 07,0F.0C,03,04,00,00,3C,07,78 
1430 DATA 0F, 33, 37, IF, 00, 1F.E0, F0.F0.70 
1440 DATA 70, 00, 00, 60, 80, E0, 00, E0, E0, C0 
1450 DATA 60,00,00.00.03.0C,0B,07.3F,03 
1460 DATA 78. 07, 70, 0C, 08, 00, 07, 00, 00, 00 
1470 DATA 00,80,80,C0,E0,80,60,00,E0,00 
1480 DATA 00, 00, 00, 00 ,.0F, IF, 19,06,08,00 
1490 DATA 00,3F,00,7F,00,3F,3F, IF.38,07 
1500 DATA C0,E0,E0,60,60,00,00,00,E0,00 
1510 DATA 60.80,C0,C0.00.C0,00,00,06. 19 
1520 DATA 17,0F,3F,00,7F,00,7F,40,00,00 
1530 DATA 01, 00, 00, 00, 00, 80, 80, 80, C0.E0 
1540 DATA 00, E0, 80, 60. 20. 00, C0, 00 
1550 DATA 00,00,00,01.03.0F,1D,19,19.0F 
1560 DATA 03,00,00,00,00,00,00,00,00,80 
1570 DATA C0,F0,B8, 98.98. F0.C0.00.00.00 
1580 DATA 00.00,00,00,00.00,00,00,02.06 
1590 DATA 06,00,04.03,00,00,00,00,00,00 
1600 DATA 00, 00, 00, 00, 40, 60, 64, 0C, 38. E0 
1610 DATA 00,00,00,00 

1620 'MUSIC DATA — 

1630 DATA C.R16,C,R16,F,E,R16,D 

1640 DATA D, R16, D,R16.G,F,R16,E 

1650 DATA C,C,E,F,A,F,G,E 

1660 DATA D,D,F,G,B,G,A,F 

1670 'STICK XY DATA ■ 



1680 DATA 0.-1.1.-1,1.0,1,1 
1690 DATA 0,1,-1,1,-1,0,-1,-1 
1700 'MAP DATA 



1710 DATA 00,00,00,FF,C3,FF,00,00,00,00. 

00, 00, 80, 82, 02, 80, 82. 02. 00, 00, 00, 55, 00, 5 

5,55.00,55,55,00,55 

1720 DATA 00,00,00.FC,C3,3F,7C,41,3D,7C, 

69, 3D, 00, 28. 00. 7C, 69, 3D, 7C, 41, 3D, FC, C3, 3 

F, 55. 55, 55, 55, 55. 55 

1730 DATA 00.00,00,0F,FF,F0,C3,FF,C3.70, 

55, 0D, 7C. 55. 3D. 7C. 55. 3D, 70. 55. 0D, C3, C3, C 

3,0F,C3,F0,3F,28,FC 

1740 DATA 00,3C,04700.00,00,FF.FF,3F,00, 

00, 00, FC, FF, FF, 00, 00, 00, FF, FF, 3F, 00, 00, 

0,FE,FF,FF,AA,AA,AA 

1750 DATA 3C,28,3C,0C,C3,30,CC,C3,33.0C, 

C3. 33, 3C, C3. 30. 00. C3. 00. FF, C3, FF, 00, 00, 

0,00,00,00,FF.C3,FF 
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W75ffi*w<-y{znm 



10 ' 

20 ' - K I K U - 

30 ' 

40 ' 



1988 R i CHARD -NAKA 



50 SCREEN 1 , : COLOR 1 5 ,0,0: KEYOFF : W 1 DTH32 
60 CLEAR500 : D I MPX ( 1 1 ) , PY ( 1 1 ) : GOTO530 

10 ' MAIN - 

80 GOSUB420: IFVO0ORWO0THENPLAY" B" 
90 X=X+V:Y=Y+W:FOR1=0TO1:PUTSPRITEI, (X*l 
6+27,Y*16+27) , 1+1*9, 1 :NEXT 
100 GOSUB510: 1F1=1THEN310 
HUT GOSUB430: 1FT1=0OR (Y=UANDX=T)THEN80 
120 GOSUB470:SV=VP: IFVP=0ORVP=8THEN80 
130 PLAY"CDE" :FORI=0TO1:FORJ=2TO15:PUTSP 
RITE1, (X*16+27,Y*16+27),J, 1:NEXTJ, 1 :A=1 
140 GOSUB430 : I FT2= 1THENGOSUB490 : GOTO80 
150 GOSUB420: IFV=0ANDW-0THEN160ELSEPLAY" 
A" : A=A+1 : IFA=LEN (MV$ (SV) ) +1THENA=1 
160 PX=PX(VAL("&H"+MID$(MV$(SV) , A, 1))) 
170 PY=PY(VAL("&H"+MID$(MV$(SV),A, 1))) 
180 FX=X+PX : FY=Y+PY : FOR I =0TO1 : PUTSPR ITE I 
+2, (FX*16+28.FY*16+20), 15-1*11. I+2:NEXT 
190 IFT1-0THEN140 

200 ' MOVE - 

210 PLAY" CD" : FOR I =0TO2 : FORJ =0TO1 : LOCATEX 
*2+3,Y*2+2:PRINTC$(SV-SV*J) :NEXTJ. I 
220 X=X+PX : Y=Y+PY : GOSUB470 : PLAY" C" 
L0CATEX*2+3, Y*2+2 : PR1NTC$ (SV) 
I FX<0ORX>8ORY<0ORY>8THEN310 
I FVP>0ANDVP<9THEN280 
L0CATEX*2+3, Y*2+2:PRINTC$ (0) 
I FSV>5ORSV=2THEN220ELSE310 
GOSUB490:G=G+1: IFG=G(C)THEN360 
PX=0 : PY=0 : T=X : U=Y : PLAY" DC" : GOTO90 
' ; GAME OVER - 



230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 



FORI=0TO4:LOCATE6, 15+1 rPRINTSPC (12) 
NEXT : L0CATE7 , 17 : PR I NT" GAME OVER" 
GOSUB490 : PLAY" BAGAGFGFEFEDEDCCC" 
GOSUB440 : GOSUB450 : GOTO610 
' STAGECLEAR - 



GOSUB490 : PLAY" CDE" : FOR I =0TO9 : LOCATE3 
.6+1 :PRINTSPC(18) :NEXT:FORI=0TO1 :FORJ=0T 
07:L0CATE4+J*2,7+I*6:PRINTC$(C) :~NEXTJ, I 
370 LOCATE5, 10: PR I NT"- STAGECLEAR -" 
L0CATE4, 1 1 : PR I NT" CONGRATULAT I ONS ! " 
PLAY"ER32CDEFGFER32ER32CDEFGABB" 
GOSUB440 : GOSUB440 : GOSUB450 : GOTO610 
' SUB - 



380 
390 
400 
410 
420 



S=STICK(0)ORSTICK(1) : V= (S>1ANDS<5) * ( 
X<8) - (S>5ANDS<9) * (X>0) : W= (S>3ANDS<7) * (Y< 
8) - (S=80RS=10RS=2) * (Y>0) : RETURN 
430 T1=-(STRIG(0)ORSTR1G(1)) :T2=-(INKEY$ 
=CHR$(13)0RSTRIG(3)) -.RETURN 



440 FOR I =0TO2000: NEXT: RETURN 

450 LOCATE30. 23 : FOR I =0TO23 : PR I NT : NEXT 

460 RETURN 

470 VP=VPEEK (6144+X*2+3+ (Y*2+2) *32) 

480 VP-VP/4-44: RETURN 

490 FORI=0TO3:PUTSPRITEI. (0. 0) , 0, 4: NEXT 

500 RETURN 

510 I=-(INKEY$=CHR$(27)) -.RETURN 

520 ' READDATA - 

530 FORI =0TO10 : READA$ : FORJ=0TO31 : VP0KE13 
76+ I *32+ J . VAL (" &H" +M I D$ (A$, J*2+l . 2) ) 
540 NEXTJ. I :READA$:FORI=0TO31:VPOKE14336 
+ I,VALC&H"+MID$(A$, 1*2+1,2)) :NEXT 
550 FOR I =0TO4 : VP0KE8214+ I , 144 : NEXT 
560 VP0KE8213, 32 : READA$, B$ : FORI =0TO8 : C$ ( 
I ) =MID$ (A$, 1*2+1, 2) +CHR$ (31) +CHR$ (29) +CH 
R$(29)+MID$(B$, 1*2+1,2) :NEXT:READA$, B$ 
570 FOR1=0TO11:PX(I)=VAL(MID$(A$, 1+1, 1)) 
-1:PY(I)=VAL(MID$(B$, 1+1, 1))-2:NEXT 
580 FOR I = 1T07 : READMV$ ( I ) : NEXT : FOR 1 =0TO8 : 
READSD$ ( I ) , G ( I ) : NEXT : READS$ 
590 PLAY"T200L16O5S9M2000BB" 

600 ' TITLE - 

610 FORI=0TO1:LOCATE2,5+I*13:PRINTSTRING 

$(13, 'V) -,"77" ;STRING$(13, " x n ) :NEXT 

620 FORI=0TO11:LOCATE2,6+I :PRINT"t" ;SPC( 

26) ;" x" :NEXT:L0CATE12,8:PRINT"t 3" 

630 L0CATE12,9:PRINT"a 7":L0CATE5,1 

6 : PR I NT" -r 1989 RICHARD -NAKA x" 

640 LOCATE 1 5 , 1 2 : PR I NT" START" 

650 LOCATE15, 14: PRINT" EDIT" :SE=0 

660 GOSUB420 : I FSO0THENSE=SEXOR1 : PLAY" C 

670 PUTSPRITE2, (96, 95+SE*16) , 14. 2 

680 PUTSPRITE3, (96, 95+SE*16) , 7, 3 

690 GOSUB430: IFT1O1THENFORI=1TO50:NEXT: 

GOTO660ELSEPLAY" FGFEFGFEQFEDC" : GOSUB440 

700 GOSUB490 : GOSUB450 : IFSE=1THEN920 

710 ' SELECT - 

720 X=4:Y=4:G=0:T=0:U=0 

730 LOCATE10,8:PRINT"STAGE SELECT" :C=1 

740 FORI=0TO4:LOCATE14, 11+ I :PRINTMID$ ("- 

77Mxil44i*4777<?777'r . 1*4+1,4) :NEXT 

750 GOSUB430:IFT1=1THEN790 

760 IFT2=0THEN750ELSEC=C+1 : IFC=9THENC=0 

770 LOCATE15.12:PRINTC$(C) :PLAY"B" 

780 FORI=1TO100:NEXT:GOTO750 

790 PLAY" AB" : GOSUB820 : FOR I =0TO9 : LOCATE25 

. I+7:PRINTMID$(S$, 1*6+1,6) :NEXT 

800 PLAY" DR8CDEFGFD" : GOSUB440 : GOTO80 

810 ' WRITE - 

820 DEFUSR=65:CLS:A=USR(0) :L0CATE2, 1 

830 FORI=0TO23:FORJ=0TO23 

'835 VP0KE6144+I*32+J, 174: NEXTJ, I 

840 PRINT"-" ; STRINGS (18, 177) \" V 

850 FORI=0TO1:LOCATE2,20+I*2:PRINT"7" ;ST 

RINGS (18, 177) ;"•>" :NEXT 

860 L0CATE2, 21 : PRINTSTRINGS (19, 176) ;" V 

870 FORI=0TO17:LOCATE2,2+I :PRINT'M" 

880 LOCATE21 , 2+ 1 : PR I NT" >f " : NEXT 
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SHORT PROGRAM 



890 FOR I =0TO8 : FORJ -0TO8 : LOCATE3+ J*2, 2+ I * 
2:PRINTC$(VAL(MID$(SD$(C) , 1*9+J + 1, 1))) 
900 NEXTJ, I :DEFUSR=68:A=USR(0) : RETURN 

910 ' EDIT - 

920 C-0:GOSUB820:FOR1-0TO8:LOCATE28, 1*2+ 

5 : PR I NTC$ ( I ) : NEXT : L0CATE25 , 1 

930 PR I NT" ED I T" : L0CATE27 , 2 : PR I NT" MODE" 

940 PLAY"CDEFG" : SE=0:X=4: Y=4 

950 PUTSPRITE2, (208, 44+SE*16) . 15, 2 

960 PUTSPRITE3, (208, 44+SE*16) , 4, 3 

970 GOSUB430:GOSUB510: IFI =1THEN1080 

980 SE=SE-KT2: 1FSE=9THENSE=0 

990 I FT1 =0THENFOR I - 1TO100 : NEXT : GOTO950 

1000 PUTSPRITE0, (X*16+27,Y*16+27) , 1,0 

1010 PUTSPRITE1, (X*16+27,Y*16+27) , 13, 1 

1020 FOR I - 1TO50 : NEXT : GOSUB420 : GOSUB430 

1030 X=X+ V : Y=Y+W : 1 FVO0ORWO0THENPLAY" B 

1040 1 FT2= 1THENPLAY" G" >: GOSUB490 : GOTO950 

1050 IFT1=0THEN1000 

1060 LOCATEX*2+3,Y*2+2:PRINTC$(SE) 

1070 PLAY" E" : GOTO 1000 

1080 PLAY" CEDECEDE" : SD$ (0) =" " : G (0) =0 

1090 L0CATE4, 22: PRINT" Itt' 6<*>it><fc' $H. " 

1 100 FORY=0TO8 : FORX=0TO8 : GOSUB470 : SD$ (0) 

-SD$(0)+RIGHT$(STR$(VP) , 1) 

1110 G(0)=G(0)-(VP>0) :NEXTX,Y 

1120 G(0)=G(0)-1:PLAY"BAGFEGFEDC" 

1130 GOSUB450:GOTO610 

1140 ' DATA- 

1150 DATA F07C363B1D0D02020F3E6CDCB8B040 

40AA55AA55AA55AA553C4299A5A599423C 

1160 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

00FEFEFEFEFEFEFEFEFEFCFAF6ECDAB600 

1170 DATA F3CFBF7FFEFEF6F6E0FEE6DFFFF0FF 

009A64DAF4FEFC 1 EFC0EFCCEB47EFCFE00 

1180 DATA F3CFBF7FFEF1FEE0FAF0E7D0F7F0FF 

009A64DAF41EFCFE0CBE1CCE14DE1CFE00 

1190 DATA F3CFBF7FFFF7F7C2F7E4E3D2D7D4FF 

009A64DAF4FEBCBE0CBE04BE0CBE04FE00 

1200 DATA F3CFBF7FFFF6EADCE2F6E2D4E2C0FF 

009A64DAF4FE0CEE0CEE0CAED4AE74FE00 

1210 DATA F3CFBF7FFEFDF3CFF8FEF8F6FAC0FF 

009A64DAF4FE7C9EE43EFC3EDCBE04FE00 ' 

1220 DATA F3CFBF7FF8F7E0CDE0EDE0EFEFDFFF 

009A64DAF43E7C0EEC0EEC0EECEECCFE00 

1230 DATA F3CFBF7FFCE3FDE5F5C0F5EDEDDDFF 

009A64DAF45EACAE9CF62CD6CCD6E4FE00 

1240 DATA F3CFBF7FFEE0E0FCF0F0FCFCC0C0FF 

009 A64DAF40E0CFE 1 C 1 E9CFE0406C4FE00 

1250 DATA 545454FE5454DCF4F4FCF4D4FEC056 

720808087F2929292929292939694D 1322 

1260 DATA E0A0BF81818181FF0040407E7E7E7E 

00E6998181E799808000667E7E18000000 

1270 DATA " -4xil93WJ}>-*Wk$t" 

1280 DATA "T'mmvfftmveA*" 

1290 DATA" 020120201202" , "001112233344" 
1300 DATA " 38" , " 38" , " 01BA" , " 23497" 
1310 DATA " 346852" . " 2497" , " 3685" 
1320 ' STAGE DATA - 



1330 DATA "00000000000000000000000000000 

0000000000000000000000000000000000000000 

000000000000" , 0, "00000000000000004000700 

0700000000000000060000000000000002000000 

000000000000000000" , 4 

1340 DATA "00000000000000000000060700000 

0660000003004000000003000000002000000000 

000000000000" , 7, "00000000000000000000110 

000000 1 0000000070 1 1 000000060000000300000 

001000000000000000" , 8 

1350 DATA "00000000000000000004020104000 

6050000003 1 060200000000000 1 0700300000000 

000000000000" ,12, "0000000000000000000100 

0040002030600000000000000703070000000000 

0030307000000000000" , 10 

1360 DATA "00000000000000010000000000000 

0005040000000000007000501000600000000060 

030000202000" , 10, "0000000000000000000007 

6700000700600000000700000007000000760600 

0000070000000000000" , 10 

1370 DATA "00000000000073260000000000000 

060400000 1 00000000 1 050560000000000000203 

000000000000" , 12 

1380 DATA "xXffxxX x xiix X xX *3 

XX 3-7 XX x Xffx X xXXVtxx" 




ENERGY CRASH 



<ftt4BASICT*T#. 4»#«(5l? 

?*4 *$£ tzitT-7°izmmuz 



5V*y 7(D$ lv7)##(i L T < tz 

(7)7=- 9 a i ooo^M^^ •> >m 
if— ? £-*# &Cfc &>(T> b<nt£<r> 

Xh 5 * £ L£l\J: 1 ftfcOltT 
<tz$l\ 



10 CLEAR 100, &HCFFF: SCREENS: WIDTH40: AD=&HD000 
15 READA$:IFA$="END"THENGOTO20ELSE:POKEAD,VAL("&H"+A$):AD 
=AD+1:G0T015 

20 DEFUSR=4HD003:A=USR(0):IFA=-1THENGOTO25ELSEPRINTA"*' 3") 
- 7f*' \ X 7'J7X":END 

25 DEFUSR=»HD000: A=USR (0) : DEFUSR=&H9000: A=USR (0) 
30 DATA C3, 68, D0,21, 00,10,11, 00,80,1A, 13, FE, 53, 20,FA,1A 
35 DATA 13,FE,54,20,F4,1A,13,FE,54,20,EE,1A,13,B7,20,FB 
4iJ DATA 1A,47,13,1A,13,B0,28,32,1A,32,8F,D0,13,1A,32,90 
45 DATA D0,13,13,13,13,AF,32,8E,D0,06,18,CD,77,D0,4F,3A 
50 DATA 8F.,D0,81,32,8E,D0,79,CD,4D,00,23,10,EF.,13,CD,77 
55 DATA D0,4F.3A,8E,D0,B9,20,09,18,C1,21,FF,FF,22,F8,F7 
b0 DATA C9,2A,8F,D0,22,F8,F7,C9, 21, 00,10,11, 00,90,01, 00 
65 DATA 20,CD,59,00,C3,00,90,CD,84,D0,87,87,87,87,4F,CD 
70 DATA 84,D0,B1,C9,1A,13,D6,30,FE,0A,D8,D6,07,C9,D5,5F 
75 DATA END 
1000 'STT 



> < 
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101,0 , 3AC1FC210000CD24003100D03AE0F3F60232E0F33E0F32E9,7C 
1020 ' F321000022EAF33E04CD5F00210000229AA0CD4100CD4C92,B7 
1030 'CD7A92CDB59B2100180100033EC0CD6B01218E90CD159A2A.4F 
1040 '9AA03E3CCD779AF501130CCD529AF16F260001160CCD529A,C2 
1050 'CDA89B16003E0301303BCD389B143CCD389B143C01C03BCD,7C 
1060 ' 389B143CCD389BCD4400CD0F9B28FBCD0F9B283318F90A08,63 
1070 ' 454E4552475920435241534801090C544F502054494D4520,D3 
1080 ' 30303A303001091250555348205350414345204B455900CD.B8 
1090 'EE91CDD792F33EC3212198329FFD22A0FDFB2100002297A0,85 
1100 *AF3296A03C3299A0AF3286A0CDFA95CD9696CD5396CDE196,14 
1110 'CD2993CD5093CD1B96CD3793CD3397CD3595CD9893CDC293,96 
1120 'CD1194CD5D94CDBB943A89A0FEB038053E013290A03A87A0,9C 
1130 'E6012006110100CDA8973A87A0B720142191A0347EFE0120,9A 
1140 '.0B3600237EFE022002360535CDC097CDFE973A90A0B7C25E,3B 
1150 '912187A0343A86A0B728FAC3E090AF3299A03286A03E10CD,0b 
1160 '9C9A0E0747CD47003E02CDD89B3A8bA0FE9b38E90E070b00,5b 
1170 'CD4700CDA89B2100180100033EC0CD6B0121CE91CD159A2A,BE 
1180 '97A03E3CCD779AF501140CCD529AF16F260001170CCD529A.C1 
1190 ' 2A97A0ED5B9AA0E5B7ED52E13803229AA0CD0F9B28FBCD0F.AC 
1200 '9B20FBC336900B0847414D4520204F56455201080C594F55,FA 
1210 ' 522054494D45202030303A3030002100002290A0228AA022,BC 
1220 '8CA0228EA03E0A3292A03293A0212C012294A02178982288,0C 
1230 'A021A0A011A1A001300036FFEDB03EFE32D0A021D1A011D2,A9 
1240 'A001900036FFEDB03EFE3261A12162A106283E20CD9C9A77,9D 
1250 ' 233E15CD9C9A3C772310EFC91100060603C5D521BF1C0100,CE 
1260 '02CD5C00D121000819EBC110EC21002616030100023EF0CD,44 
1270 '6B01010008091520F1C9213F981100003E03CDDD99216F98,22 
1280 ' 110038010008CD5C00214F9911869C010004EDB02132A611,63 
1290 ' 33A6013F003600EDB03E013232A63E043244A63E103256A6,0F 
1300 '3E403268A63E80323AA6324CA6325EA63270A62132A61150,8A 
1310 '003E04CDDD99C921C01A0120003E01CD6B0121E01A012000.1E 
1320 , 3E02CD6B01210693CD159A0E081E0406151602CD7D9679C6,39 
1330 ' 094K1D20F2C900002020202054494D452030303A30302020,59 
1340 ' 20454E455247592030303030202020200021B2A111B3A101,24 
1350 '7F0436C0RDB0C9F3212018CDBF9921EAA13E150b20EDB311,2b 
1360 ' 10tJ0193D20F5FBC93A87A0F.b03201921b2A10b28357EFEFF,C4 
1370 '20023blF23347EFElb38023b012310EC21b2A10b28C54E23,78 
1380 '7E23EB213000CDbl9A79Cb08CDlA9B01B2A1093A87A0Eb03,15 
1390 'Cb0A77EBClliJDEC93A8BA.0B7C03A8CA0B7C0eD7C95301iJeD,4E 
1400 '0F9B20113E01328BA03E03CDD89BC93E01328CA0C9AF328D,95 
1410 'A0C93A8BA0B7C8CD0F9B202B3A8BA03D210194CDlA9B5bl4,53 
1420 * 15280FCDb89538173A89A03D3289A01520F13A8BA0FE1028,21 
1430 '063C328BA018093E01328CA0AF328BA0C90807 07 0606.0505, 5E 
1440 '0404030302020101003A8CA0B7C83D214D94CD1A9B561415.39 
1450 ' 280FCD7C9538163A89A03C3289A01520F13A8CA0FE102801 , 20 
1460 '3C328CA0C9AF328CA0CD0F9B3E012801AF328DAiJC9000101,28 
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